ZONDO

задали задачку по массивам: выполнять надо только 1е задание



заранее благодарю

Qiker

program kk;
var a:array [1..n] of integer;
i:integer;
max:integer;
begin
for i:=1 to n do begin
read(a[i]);
end;
max:=a[1];
if a[i]>max then max:=a[i];
writeln('максимальный элемент массива =',max);
end.

---------- Добавлено в 21:33 ---------- Предыдущее сообщение было написано в 21:32 ----------

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

---------- Добавлено в 21:37 ---------- Предыдущее сообщение было написано в 21:33 ----------

да и еще если нужно ввести элемент n, то перед var нужно указать значение const, например const =2

---------- Добавлено в 22:15 ---------- Предыдущее сообщение было написано в 21:37 ----------

извинияюсь, вот так const n=2

ZONDO

спасибо, я тут вспомнил еще-мне надо сделать массив еще вторым способом т.е. через random...тут ваще тьма для меня , если не трудно,напишите ещё этим способом)

Qiker

program kk;
var a:array [1..n] of integer;
i:integer;
max:integer;
begin
for i:=1 to n do begin
a[i]:=random(100);
write(a[i], ' ');
end;
max:=a[1];
if a[i]>max then max:=a[i];
writeln('максимальный элемент массива =',max);
end.

---------- Добавлено в 11:27 ---------- Предыдущее сообщение было написано в 11:27 ----------

вот с random

ZONDO

93 25 65 9 6 54 84 10 45 60 2 36 33 56 19 94 58 24 26 72 23 максимальный элемент массива =36
77 78 90 52 26 44 28 73 94 54 15 88 9 75 80 6 63 91 21 0 28 максимальный элемент массива =88
72 33 3 53 62 89 70 93 9 94 61 41 28 27 22 62 61 51 80 57 82 максимальный элемент массива =82


выводит явно не макс.элемент, в чём ошибка???

Qiker

program kk;
var a:array [1..n] of integer;
i:integer;
max:integer;
begin
for i:=1 to n do begin
a[i]:=random(100);
write(a[i], ' ');
end;
max:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];

end;
writeln('максимальный элемент массива =',max);

end.