Составить программу вывода элементов матрицы - Pascal ABC

Формулировка задачи:

Матрица с 3 строками и n столбцами. Вывести каждый столбец, первый элемент которого больше среднего арифметического элементов данного столбца.

Код к задаче: «Составить программу вывода элементов матрицы - Pascal ABC»

textual
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.

11   голосов, оценка 3.818 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы