Заполнить двумерный массив 5*5 случайными числами. найти суммы нечетных элементов(значение элементов)

116

223

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

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

mixrasp2002

Информатика

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

Вот пример программы: uses crt; const n=5; type mas=array [1..n, 1..n] of integer; var i, j , sum: integer; a: mas; begin clrscr; sum: =0; for i: =1 to n do for j: =1 to n do a[i,j]: =10+random(90); for i: =1 to n do for j: =1 to n do if (a[i,j] mod 2< > 0) then sum: =sum+a[i,j]; for i: =1 to n do begin for j: =1 to n do write (a[i,j]: 4); writeln; end; writeln; writeln(' s = ', sum); readln; end.