Объясните как делать var k, m: integer; dat: array[1..10] of integer; begin a [1] : = 20; a [2] : = 16; a [3] : = 20; a [4] : = 36; a [5] : = 15; a [6] : = 21; a [7] : = 28; a [8] : = 17; a [9] : = 26; a [10] : = 35; m : = 1; for k : =1 to 10 do if a[k] > a[m] then begin m: =m+1 end writeln (m)
использовать Чертежник
алг
нач
опустить перо
Д;И;М;А
сместиться на вектор(1,0)
Д;И;М;А
сместиться на вектор(1,0)
Д;И;М;А
кон
алг Д
нач
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(1,0)
сместиться на вектор(0,-1)
сместиться на вектор(-1,-0.5)
поднять перо
сместиться на вектор(2,-1.5)
кон
алг И
нач
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(0,-3)
сместиться на вектор(1.5,3)
сместиться на вектор(0,-3)
поднять перо
сместиться на вектор(1,0)
кон
алг М
нач
опустить перо
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
поднять перо
сместиться на вектор(1,0)
кон
алг А
нач
опустить перо
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
сместиться на вектор(0.75,3)
сместиться на вектор(0.75,-3)
поднять перо
сместиться на вектор(1,0)
кон
Объяснение:
Вроде так
сорри если будет неправильно
1) var
arra: array[1..10]of integer;
begin
writeln('Запишем массив в прямом порядке:');
for i: integer := 10 downto 1 do
begin
arra[i] := random(30);
write(arra[i]:5);
arra_[10 - i + 1] := arra[i];
end;
writeln;
writeln('Запишем массив в обратном порядке:');
for i: integer := 10 downto 1 do
write(arra_[i]:5);
end.
2) var
arra: array[1..8]of integer;
begin
writeln('Запишем массив:');
for i: integer := 1 to 8 do
begin
arra[i]:= random(30)-15;
write(arra[i]:5);
end;
writeln;
for i: integer := 1 to 8 do
if arra[i]<0 then
writeln('Отрицательный элемент ',arra[i]:3, ' под номером ', i);
end.
3) var
arra: array[1..8]of integer;
begin
writeln('Запишем массив:');
for i: integer := 1 to 8 do
begin
arra[i]:= random(30)-15;
write(arra[i]:5);
end;
writeln;
for i: integer := 1 to 8 do
if i mod 2=0 then
writeln('Четный номер у элемента ',arra[i]:3, ', индекс ', i);
end.
4) var
arra: array[1..12]of integer;
sum:integer;
begin
writeln('Запишем массив:');
for i: integer := 1 to 12 do
begin
arra[i]:= random(30)-15;
write(arra[i]:5);
end;
writeln;
for i: integer := 1 to 12 do
sum:=sum+arra[i];
writeln('СУММА ',sum);
end.
Объяснение: