Question

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

Answer 1

1 вариант:

var

a, b, c, min: integer;

begin

min:=0;

readln(a, b, c);

if (a<b) and (a<c) then min:=a;

if (b<a) and (b<c) then min:=b;

if (c<a) and (c<b) then min:=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]<z then z:=a[i];

end;

writeln(z);

end.