Вопрос школьника по предмету Информатика
Напишите программу в двухмерном массиве 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) Как бы ни увлёкся лисёнок, он не выдерживает этого взгляда, (!) сразу останавливается, (!) как вкопанный, точно она окликнула его.
3) Оглядывается, ловит её взгляд (!) и бежит к ней, (!) как пёс на свист хозяина.