Задать вопрос
28 сентября, 22:34

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

+1
Ответы (1)
  1. 29 сентября, 02:25
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «В двумерном массиве размерностью N*M, содержащем целые числа, найти среднее арифметическое минимальных элементов строк ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы