Составьте программу вычисления произведения тех значений элементов двумерного массива, которые меньше 15. паскаль

239

317

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

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

Владислава3000

Информатика

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

условие элемент массива меньше 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; beginp: =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); readlnend.