Доброго времени суток!

Uses crt; const N=10; var a: array [1… N] of integer; x,max: integer; begin for x: =1 to N do begin write ('a[',x,']: '); readln (a[x]); end; max: =a[1]; for x: =1 to N do if a[x]>max then max: =a[x]; writeln ('max=',max); end.-uses crt; const N=4; var a: array [1… N,1… N] of integer; x,y,sum,pr: integer; begin sum: =0; pr: =1; for x: =1 to N do for y: =1 to N do begin read (a[x,y]); if x=3 then sum: =sum+a[x,y]; if y=2 then pr: =pr*a[x,y]; end; writeln; writeln ('Сумма элементов в 3 строке: ',sum,'; произведение элементов во 2 столбце: ',pr); end.