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

Question

Информатика

Элисса

27 ноября, 14:24

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

+3

Ответы (2)

Знаете ответ?

Валерьянка · Answer 1

Var

i:integer;

min:real;

a:array[1 ... 3]of real;

begin

for i:=1 to 3 do

begin

writeln (i,' число:') ;

readln (a[i]) ;

if i=1 then min:=a[1];

if a[i]
end;

writeln ('Наименьшее: ', min)

end.

Неонила · Answer 2

Это легко пошевели мозгами всё получится 100%