rona1968
Опубликовано 7 лет назад по предмету Информатика от rona1968


Вычислите среднее арифметическое наибольшего и наименьшего из n чисел. Язык программирования Паскаль.

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

    var

    s,a,n,i,min,max:integer;

    begin

    min:=32767;

    max:=-32768;

    readln(n);

    for i:=1 to n do

    begin

    readln(a);

    if a<min then min:=a;

    if a>max then max:=a;

    end;

    s:=(min+max)/2;

    writeln(s);

    end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц