Составьте программу вычисления произведения тех значений элементов двумерного массива, которые меньше 15. Задача Паскаль
Составьте программу вычисления произведения тех значений элементов двумерного массива, которые меньше 15. Задача Паскаль
Гость
Ответ(ы) на вопрос:
ГостьУсловие элемент массива меньше 15 и не равен нулю потому, что иначе произведение почти всегда будет равно нулю. Если оно не нужно - удали фрагмент 'and(a[i,j]<>0)' Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n,1..n] of integer;
i,j: integer; p: longint;
begin
p:=1;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(50);
if (a[i,j]<15)and(a[i,j]<>0) then p:=p*a[i,j];
write(a[i,j]:3);
end;
writeln;
end;
writeln('Proizvedenie =',p);
readln
end.
Не нашли ответ?
Похожие вопросы