Написать программу на паскале: У юного фермера Тимы 5 кроликов

Question

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

Dnuomhtae · Accepted Answer

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.

Написать программу на паскале: У юного фермера Тимы 5 кроликов

Задание:

Решение: