Дан массив 50 чисел. От 0 до 50. Нужно написать программу, чтобы пользователь вводил 5 любых цифр от 0 до 50 и программа находила самое минимальное число из пяти. Также провести операция с 26 любыми цифрами. Язык - Паскаль.

var a:array[0 ... 50] of integer;

for b:array[1 ... 5] of integer;

c:array[1 ... 26] of integer;

i, bmin, cmin:integer;

begin

for i:=0 to 50 do a[i]:=i;

writeln ('Введите 5 чисел');

for i:=1 to 5 do readln (b[i]);

if (b[1]=0) then (if b[2]=0) then

if (b[3]=0) then if (b[4]=0) then

if (b[5]=0) then begin

bmin : = b [ 1 ];

for i : = 2 to 5 do begin

if bmin > a [ i ] then bmin : = a [ i ];

e nd;

writeln ('Введите 26 чисел');

for i:=1 to 26 do readln c[i];

cmin : = c [ 1 ];

for i : = 2 to 5 do begin

if cmin > a [ i ] then cmin : = a [ i ];

e nd;

writeln (bmin, cmin);

end.