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

Написать программу на паскале: У юного фермера Тимы 5 кроликов. Определите минимальный вес кроликов(вес каждого задать произвольно)

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

    var a: array [1..5] of real;

          i: integer;

          min: real;

    begin

      min:=1000;

      for i:=1 to 5 do begin

        readln(a[i]);

        if a[i]<min then min:=a[i];

                             end;

      writeln('Минимальный вес равен ',min);

    end.

        

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