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

Question

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

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.