двумерный массив

[mawrick]

Дано двомірний масив A[1..m,1..n]. Написати програму побудови одномірного масиву B[1..m], елементи якого відповідно рівні а) сумам елементів рядків, б) добуткам елементів рядків, в) найменшим середніх арифметичних елементів рядків.


что-то пропустил (или правильно хоть написал)

program lab5;
uses crt;
const
N=28;
var
i,j,min,max,sum,s:integer;
A:array [1..N] of integer;
begin
clrscr;
for i:= 1 to N do
begin
A[i]:= random(N);
s:=0;
max:=A[1];
min:=A[1];
if A[i] < min then
min := A[i]
else if A[i] > max then
max := A[i];
sum:=sum + a[i];
end;
WriteLn('min = ',min);
writeln('max=',max);
writeln('Suma=',sum);
readkey;
end.