Регистрация
maryxlenko
22.02.2021 20:18
Информатика
Есть ответ 👍

БТт ЗЗзннНАААНнняЯя теллегГРрмм - @united brai nly (ББз ПпРРРОББеелЛл)

214
334
Посмотреть ответы 2

Ответы на вопрос:

shedis2004
shedis2004
4,7(63 оценок)
БбБоОТт зззАааНННиИиЯ ТтеелЛЛеЕЕгГГРРааММм - @united brai nly (ееЗз ПпПрООБББлОООвВв)
eka04599
eka04599
4,4(94 оценок)

var A: array [1..5,1..5] of integer;

var i,j: integer;

var s: real;

begin

s:=1;

randomize();

For i:= 1 to 5 do

begin

For j:= 1 to 5 do

begin

A[i,j]:=random(66)+15;

if (A[i,j] mod 2 <>0) then s:=s*A[i,j];

write(A[i,j]:4);

end;

writeln();

end;

writeln('Произведение нечётных элементов массива: ',s);

end.

Популярно: Информатика