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

Question

Информатика

Геруша

14 мая, 10:18

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

+5

Ответы (1)

Знаете ответ на вопрос?

Димуля · Answer 1

Var ar:array[1 ... 4] of integer;

i, k, min:integer;

begin;

min:=2147483647;

for i:=1 to 4 do

begin;

readln (ar[i]) ;

if ar[i]
end;

writeln (min) ;

end.