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

Вычислить среднее значение максимального и минимального элементов. Число элементов и интервал выбрать самостоятельно.
Помогите, пожалуйста.

  1. Ответ
    Ответ дан wapmister
    Готовое решение для Pascal ABC.
    Program n1;
    Uses Crt;
    var  a: array[1..20,1..20] of integer;
     m,n,i,j,max,min: integer;
    begin 
    write('Введите размеры матрицы: '); 
    readln(m,n); 
    for i:=1 to m do  begin
        for j:=1 to n do    begin
          a[i,j]:=random(40)-20; 
         write(a[i,j]:6);   
    end;   
    writeln; 
     end; 
      max:=a[1,1];
    min:=a[1,1]; 
    for i:=1 to m do
        for j:=1 to n do    begin
          if a[i,j]>max then max:=a[i,j]; 
        if a[i,j]<min then min:=a[i,j]; 
      end;  writeln('max = ',max); 
     writeln('min = ',min); 
     writeln('Среднее значение max и min = ',(max+min)/2);
    end.
Самые новые вопросы