Задача: найти значение максимального элемента в одномерном массиве, который заполняется случайными числами.

Question

Задача: найти значение максимального элемента в одномерном массиве, который заполняется случайными числами.
var M: array [1..10]  integer;
i, max: ;
begin
  ;
  for i: = 1 to 10 do
   begin
   M[i]: = random ();
   write (M[i],' ');
   end;
     i: = 1 to 10 do
  begin
  if (M[i] >)  max: = M[i];
  end;
  writeln(' ');
   (max)
end.

user_27493017 · Accepted Answer

1-ая строка: var M: array [1..10] of integer; (нужно написать "of")
2-ая строка: i, max: integer; (нужно написать "integer")
4-ая строка: randomize;
7-ая строка: M[i]:=random (10); (нужно написать "10")
10-я строка: for i:=1 to 10 do (нужно написать "for")
12-я строка: if (M[i] >M[1]) then max:= M[i]; (слева нужно написать "M[1]", а справа (после скобки) - "then")
15-я строка: write (max) либо writeln (max) - допускается любой из этих вариантов (нужно написать "write" либо "writeln")

araz_arazow_1 · Answer

var M: array [1..10] of integer;
i, max:integer ;
begin
randomize;
for i:=1 to 10 do
begin
M[i]:=random (10);
write(M[i],' ');
end;
for i:=1 to 10 do
begin
if (M[i] >m[1])then max:= M[i];
end;
writeln(' ');
write(max)
end.