ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧИ НА МАССИВЫ В ПАСКАЛЕ!!!)),как решать не объяснили,а принести уже завтра надо((( 1)Заполните случайными числами целочисленный массив 10 на 10.Выведите на экран четвертую строку массива.2)Дан цел...

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.