profile
Опубликовано 6 лет назад по предмету Информатика от Inqu1sItor

 

1)дан двумерный массив целых чисел размерностью 5х7. Найти и вывести на экран среднее арифметическое элементов этого массива

 

  1. Ответ
    Ответ дан MrsSima

    Program n1;
    Uses CRT;
    Const n=5; m=7;
    Var A: array[1..n,1..n] of integer;
    i,j,s,k: integer;
    begin
    clrscr;
    randomize;
    For i:=1 to n do
    begin
    For j:=1 to n do
    begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
    s:=s+a[i,j];
    k:=k+1;
    end;
    writeln;
    end;
    Writeln('srednee arifmeticheskoe =',s/k:4:4);
    readln
    end.

Самые новые вопросы