Регистрация
natakalip09wj0
30.05.2021 11:50
Информатика
Есть ответ 👍

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

224
336
Посмотреть ответы 2

Ответы на вопрос:

привет980
привет980
4,6(25 оценок)

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.

     

ангелина123456543216
ангелина123456543216
4,4(40 оценок)
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',99); a.println;   for var i: =1 to a.length-1 do a[i]+=a[i-1];   a.println; end. пример n= 17 78 -74 -62 -11 43 -63 99 50 -68 -87 8 93 -26 -57 2 -97 23 78 4 -58 -69 -26 -89 10 60 -8 -95 -87 6 -20 -77 -75 -172 -149

Популярно: Информатика