Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти количество всех четных чисел последовательности. на c++

239

320

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

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

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.