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