СРОЧНОО!!!нужно составить программу нахождения наименьшего из 4 чисел)))я вообще не поняла вопрос)))но думаю что кто то знает на этот вопрос ответ)))

через random долго

и не весело

Я в комментарии написал, что способ заполнения неизвестен. Можно и самому при надобности заменить.

упс исправляюсь

program bip;var a,q,n:integer;beginwriteln('введите число не превышающее 10000');readln(a);q:=100000;n:=1;while (n<>4) do begin if (a<q) then q:=a; readln(a); n:=n+1; end;writeln('наименьшее из четырёх ',q);end.

program bip;var a,q,n:integer;begin  writeln('введите четыре числа');  readln(a);  q:=0;  n:=1;  while (n<>4) do  begin     if (a>q) then     q:=a;     readln(a);     n:=n+1;  end;   writeln('большее из пяти ',q);end.

С помощью массивов и цикла for.