Как была так и выглядит :D
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end.
Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56
Т<span>ехника безопасности в кабинете информатики </span>
Общие требования безопасности 1.К работе в кабинете информатики допускаются учащиеся, прошедшие инструктаж по охране труда и не имеющие противопоказаний по состоянию здоровья. 2.Учащиеся должны соблюдать правила поведения в кабинете информатики.
<span>3.При работе в кабинете информатики возможно воздействие на человека следующих опасных и вредных факторов: от монитора: ультрафиолетовое, инфракрасное, электромагнитное и рентгеновское излучения; статическое электричество, блики и мерцание экрана; поражение электрическим током при работе без заземления, со снятой задней крышкой системного блока. </span>
Легко и просто берешь рисуешь по клетках его и все готово
Program square;
var
i : byte;
begin
for i:=1 to 10 do
writeln(i, '^2=', i*i);
end.