Решить на массивы в решать не объяснили,а принести уже завтра 1)заполните случайными числами целочисленный массив 10 на 10.выведите на экран четвертую строку массива. 2)дан целочисленный массив,содержащий n элементов и заполненный с клавиатуры.найти наибольшее значение элемента массива.

1)

var

a:array[1..10,1..10] of integer;

i,j:integer;

begin

randomize;

 for j:=1 to 10 do

 for i:=1 to 10 do

a[i,j]:=random(51);

for i:=1 to 10 do

write(a[i,4);

end.

2)

var

n,max,i:integer;

 a:array[1..n] of integer;

begin

max:=0;

 read(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if a[i]>max then max:=a[i];

write(max);

end.

Согласно правилам сервиса в одном вопросе нельзя задавать больше одного задания, так что я решаю 2.

2)

var a:array[1..n] of integer;

i,max:integer;

begin

for i:=1 to n do

readln(a[i]);

max := a[1];

for i:=2 to n do

if a[i]>max then max:=a[i];

writeln('max = ', max);

end.