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

Question

Информатика

Элисса

21 апреля, 07:41

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

+5

Ответы (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%