Задача Pascal

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

Question

Информатика

Алевтина

3 ноября, 13:39

Задача Pascal

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

+3

Ответы (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.