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

Question

Информатика

Агафия

23 сентября, 15:26

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

+4

Ответы (1)

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

Кристя · Answer 1

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

i, min:integer;

begin

for i:=1 to 4 do begin

Write (i,'-чисдо=') ; Readln (chisl[i]) ;

end;

min:=chisl[1];

for i:=1 to 4 do begin

if chisl[i]<=min then min:=chisl[i];

end;

Writeln ('Квадрат минимума=', sqr (min)) ;

end.