Паскаль abc составьте программу, определяющую минимальное из всех введенных вами чисел (число 99 - конец цикла).

Вот программа, которая определяет минимальный элемент из чисел n. предусловие делать ? program asd; uses crt; vara: array [1..99] of integer; i,j,n,min: integer; begin clrscr; writeln('vvedite ramsernost chisel: '); readln(n); for i: =1 to n do  begin  a[i]: =random(10);   write(' ',a[i]);   end;   min: =a[1]; for i: =1 to n do begin if a[i]< =min then min: =a[i]; end; writeln; writeln('min: ',min); end.

1)52: 2=26(чел) любят пирож

2)26-20=6(чел) любят морож

ответ 6 чел