Срочно, пожайлуста!!!!
3) Элементы двумерного массива С(10,10) – целые случайные числа из интервала [-5,5]. Вывести массив. Найти произведение положительных элементов матрицы, кратных 5
3) Элементы двумерного массива С(10,10) – целые случайные числа из интервала [-5,5]. Вывести массив. Найти произведение положительных элементов матрицы, кратных 5
More Questions From This User See All
Answers & Comments
var c: array [1..10, 1..10] of integer;
p,n,i,j: integer;
find:boolean;
begin
clrscr;
randomize;
n:=10; P:=1;
find:=false;{find - положительных элементов в матрице, кратных 5 нет}
for i:=1 to n do
begin
for j:=1 to n do
begin
c[i,j]:=-5+random(11);
if (c[i,j]>0) and (c[i,j] mod 5 =0) then
begin
p:=p*c[i,j];find:=true;
end;
write(c[i,j]:6);
end;
writeln;
end;
if find then
writeln('произведение', p:7)
else
writeln('положительных элементов в матрице, кратных 5 нет')
end.