Задание 3. Составьте программу, которая меняет местами максималь- ный и минимальный элементы массива и выводит на экран исходный
и преобразованный массивы. Все элементы массива различны, и их
значения вводятся с клавиатуры.

121

299

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

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

lingvini2013

Информатика

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

Program z; var p,s,n,m: integer; a: array [1..10,1..10] of integer; begin writeln('введите кол-во столбцов'); readln(n); writeln('введите кол-во строк'); readln(m); writeln('ввод матрицы'); for var i: =1 to n do for var j: =1 to m do begin write('a[',i,',',j,']='); readln(a[i,j]); end; writeln('вывод матрицы'); for var i: =1 to n do begin for var j: =1 to m do write(a[i,j],' '); writeln; end; s: =0; for var i: =1 to n do for var j: =1 to m do begin s: =s+a[i,j]; end; p: =0; for var i: =1 to n do for var j: =1 to m do if a[i,j] mod 5 = 0 then begin inc(p); end; writeln('сумма элементов - ',s); writeln('кол-во элементов, кpатных 5 - ',p); end.