Блог для маленьких школьников и их родителей
ШколаЛа

Написать код в Pascal. Задача: Сформулировать и вывести на экран в виде таблицы массив A[1.4,1.6], заполнив…

Автор:
Предмет: Информатика
Уровень: 10 - 11 класс

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

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

Найти среднее арифметическое каждого столбца.

Ответов к вопросу: 2
  • mailrumama
    29.10.2024 | 09:27

    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.

  • abdullaazel02
    29.10.2024 | 09:42

    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.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.