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

Question

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

Comments

Тогда посмотрите этот же вопрос тремя заданиями раньше)))

---

хочу уточнить, вы в школе цикл while проходите?

---

А зачем тут while, если сказано, что чисел точно 4?

---

просто меня в школе та получилось что я написал программу сам а остальные мои однокласники этого не проходили вот они и списали и получили двойки

Answer 1

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.

Comments

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

---

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

Answer 2

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

Comments

через random долго

---

и не весело

---

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