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

Question

Информатика

Танюша

24 июня, 18:50

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

+1

Ответы (2)

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

Асаф · Answer 1

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

Павлуша · Answer 2

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.