Вопрос школьника по предмету Информатика
Напишите программу в двухмерном массиве 6*3 для каждой нечетной строки определить произведение положительных элементов
Ответ учителя по предмету Информатика
var
arr:array[1..6,1..3] of integer;
i,j:integer;
p:longint;
begin
randomize;
p:=1;
for i:=1 to 6 do
begin
for j:=1 to 3 do
begin
arr[i,j]:=random(10);
write(arr[i,j]:5);
end;
writeln;
end;
for i:=1 to 6 do
begin
if i mod 2<>0 then
begin
for j:=1 to 3 do
if arr[i,j]>0 then p:=p*arr[i,j];
end;
end;
writeln(‘Произведение положительных элементов нечетных строк: ‘, p);
end.
Похожие вопросы от пользователей
1 у маши меньше в 2 раза
2) у саша меньше в 2 раза
3) резистор будет иметь одинаковые сопротивления
4) ответы будут зависить от того к какомуу источнику тока будет подключен резистор.
СРОЧНО