Question

Pascal найти наименьшие элементы в каждом столбце матрицы х(5,5) и переписать их в одномерных массив а.в массиве а вычислить сумму элементов,стоящих на четных местах и произведение элементов,стоящих на нечетных
местах.массив а,сумму и произведение вывести на экран

Answer 1

Program n1;
Uses CRT;
Const n=5;
Var x: array[1..n,1..n] of integer;
a: array[1..n] of integer;
i,p,s,j: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
For j:=1 to n do
x[i,j]:=random(100);
j:=1;
Repeat
For i:=1 to n do
If a[j]<x[i,j] then a[j]:=x[i,j];
write(a[j]:4);
j:=j+1;
Until j=n+1;
p:=1;
writeln;
For i:=1 to n do
If i mod 2=0 then s:=s+a[i]
else p:=p*a[i];
writeln('Proizvedenie =',p,',Summa =',s);
readln
end.