двумерный массив С из 2-х строчек и 4-х столбцов задан при помощи генератора случайных чисел из интервала [-10, 30] (целые числа).
Подсчитайте произведение элементов массива, которые больше 0, но меньше 20.
Информатика, 11 класс, помогите пожалуйста
Подсчитайте произведение элементов массива, которые больше 0, но меньше 20.
Информатика, 11 класс, помогите пожалуйста
Answers & Comments
var
A: array [1..2, 1..4] of integer;
i, j: byte;
mult: longint;
begin
mult := 1;
writeln('Сгенерированный массив: ');
for i := 1 to 2 do
begin
for j := 1 to 4 do
begin
A[i, j] := random(41)-10;
write(A[i, j]:4);
if ((A[i, j] > 0) and (A[i, j] < 20)) then
mult := mult * A[i, j];
end;
writeln;
end;
writeln('Произведение = ', mult);
end.