& двумерные массивы - 10 класс! заполнить массив b ( m на n ) целыми случайными числами в интервале [17; 95], вывести на экран и найти среднее арифметическое кратных 5

101

345

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

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

nemkovvlad1

Информатика

4,7(18 оценок)

Const nx=30; mx=30; var r: array[1..nx,1..mx] of integer; i,j,n,m,k,sum: integer; sr: real; beginrandomize; write('введите n и m: '); readln(n, m); writeln('исходная матрица: '); for i: =1 to n dobeginfor j: =1 to m dobeginr[i,j]: =random(78)+17; write(r[i,j]: 4); end; writeln; end; writeln; for i: =1 to n dobeginfor j: =1 to m dobeginif r[i,j] mod 5 = 0 then beginsum: = sum + r[i,j]; write(r[i,j]: 4); end; end; end; writeln; write(sum: 4); end.