Составить программу вывода элементов матрицы - Pascal ABC
Формулировка задачи:
Решение задачи: «Составить программу вывода элементов матрицы»
const n=3;maxm=25; type mas=array[1..n,1..maxm] of integer; var i,j,jj,m,sum:integer; a:mas; begin repeat write('столбцов?,<=25: ');readln(m); until m<=25; writeln('исходная:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(11); write(a[i,j]:3) end; writeln end; j:=1; while j<=m do begin sum:=0; for i:=1 to n do sum:=sum+a[i,j]; if a[1,j]<=sum/n then begin for jj:=j to m-1 do for i:=1 to n do a[i,jj]:=a[i,jj+1]; dec(m);dec(j) end; inc(j); end; if m=0 then writeln('нет таких') else begin writeln('столбцы 1 элемент которых больше среднего арифметического'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3); writeln end end end.
Объяснение кода листинга программы
const n=3;maxm=25; type mas=array[1..n,1..maxm] of integer; var i,j,jj,m,sum:integer; a:mas; begin repeat write('столбцов?,<=25: ');readln(m); until m<=25; writeln('исходная:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(11); write(a[i,j]:3) end; writeln end; j:=1; while j<=m do begin sum:=0; for i:=1 to n do sum:=sum+a[i,j]; if a[1,j]<=sum/n then begin for jj:=j to m-1 do for i:=1 to n do a[i,jj]:=a[i,jj+1]; dec(m);dec(j) end; inc(j); end; if m=0 then writeln('нет таких') else begin writeln('столбцы 1 элемент которых больше среднего арифметического'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3); writeln end end end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д