Question

Написать код в Pascal.

Задача: Сформулировать и вывести на экран в виде таблицы массив A[1..4,1..6], заполнив его целыми случайными числами из интервала [30,75]
Найти среднее арифметическое каждого столбца.

Answer 1

const
  m=4;
  n=6;
var
  a:array[1..m,1..n] of integer;
  i,j:integer;
  p:real;
begin
  randomize;
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(46)+30;
      Write(a[i,j]:3)
    end;
    Writeln
  end;
  Writeln;
  for j:=1 to n do
  begin;
    p:=0;
    for i:=1 to m do
      p:=p+a[i,j];
    Write(p/m:6:2)
  end;
  Writeln
end.

Answer 2

program mas;

var A:array[1..4,1..6] of integer;

i, j: integer;

summ: integer;

id: integer;

begin

randomize;

for i := 1 to 4 do

begin

for j := 1 to 6 do

begin

A[i, j] := random(30) + 45;

write(A[i,j]);

write(' ');

end;

writeln('');

end;

for j := 1 to 6 do

begin

for i := 1 to 4 do

begin

summ := summ +A[i, j];

end;

writeln(summ / 4);

summ := 0;

end;

readln;

end.