Question

Срочно, пожайлуста!!!!
3) Элементы двумерного массива С(10,10) – целые случайные числа из интервала [-5,5]. Вывести массив. Найти произведение положительных элементов матрицы, кратных 5

Answer 1

uses crt;
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.