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

В двумерном массиве размерностью N*M, содержащем целые числа, найти среднее арифметическое минимальных элементов строк

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

    uses crt;
    var i,j,min,n,m :integer; s:real;
    a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
    begin
    readln(n,m);
    s:=0;
    for i:=1 to n do begin
    for j:=1 to m do
    a[i,j]:=random(25)+1;
    end;

    for i:=1 to n do begin writeln;
    for j:=1 to m do
    write(a[i,j],' ');

    end; writeln;
    WriteLn('Ìèíèìàëüíûå ýëåìåíòû ñòðîê:');
    for i:=1 to n do begin
    min:=a[i,j];
    for j:=2 to m do begin
    if min>a[i,j] then begin
    min:=a[i,j];
    end;
    end;
    s:=s+min;

    Write(min,' ');
    end;
    writeln('avg = ',(s/n):0:1);
    end.

Другие вопросы
Lenusik
Математика - 2 недели назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 3 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 3 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 3 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 3 недели назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.