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

119

465

Посмотреть ответы 2

Ответы на вопрос:

azizka4

Информатика

4,5(95 оценок)

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.