Составьте алгоритм нахождения наименьшего из трех значений в паскаль с объяснением

Question

Информатика

Леонинка

22 августа, 05:30

Составьте алгоритм нахождения наименьшего из трех значений в паскаль с объяснением

+2

Ответы (1)

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

Влас · Answer 1

1 вариант:

var

a, b, c, min: integer;

begin

min:=0;

readln (a, b, c) ;

if (a
if (b
if (c
writeln (min) ;

end.

2 вариант:

Var a:array[ 1 ... 3 ] of integer;

i, z:integer;

begin

for i: = 1 to 3 do

Readln (a[i]) ;

z:=a[1];

for i: = 2 to 3 do

begin

if a[i]
end;

writeln (z) ;

end.