Задача PascalНайти наименьшие элементы в каждом столбце матрицы Х(5,5) и переписать их в

Ответы 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;beginClrScr;Randomize;For i:=1 to n do For j:=1 to n do x[i,j]:=random(100);j:=1;RepeatFor 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);readlnend.
- Автор:
  anderson158
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы