Задача Pascal

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

Question

Информатика

Корнилка

25 августа, 03:01

Задача Pascal

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

+5

Ответы (1)

Знаешь ответ?

Веруся · 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]
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.