221. На¬пи¬ши¬те про¬грам¬му для ре¬ше¬ния сле¬ду-ю¬щей за¬да¬чи. Ка¬ме¬ра на¬блю¬де¬ния ре¬ги¬стри¬ру¬ет в ав¬то¬ма¬ти¬че¬ском ре¬жи¬ме ско¬рость про¬ез¬жа¬ю¬щих мимо неё ав¬то¬мо¬би¬лей, округ¬ляя зна¬че¬ния ско¬ро-сти до целых чисел. Не¬об¬хо¬ди¬мо опре¬де¬лить мини¬маль¬ную за¬ре¬ги¬стри¬ро¬ван¬ную ско¬рость всех ав¬то¬мо¬би¬лей. Про¬грам¬ма по¬лу¬ча¬ет на вход число про¬ехав¬ших ав¬то¬мо¬би¬лей N (1 =< N =< 30), затем ука¬зы¬ва¬ют¬ся их ско¬ро¬сти. Зна¬че¬ние ско¬ро¬сти не может быть мень¬ше 1 и боль¬ше 300.Про¬грам¬ма долж¬на вы¬ве-сти мини¬маль¬нуюско¬рость.
При¬мер ра¬бо¬ты про¬грам¬мы:
Вход¬ные дан-ные Вы¬ход¬ные дан-ные
4
74
69
63
96 63
var
i,j,k:integer;
A:array[1..n] of integer;
B,C:array[1..m] of integer;
begin
writeln('Введите элкменты массива');
for i:=1 to n do readln(a[i]);
j:=0; k:=0;
for i:=1 to n do
if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
else begin k:=k+1; C[k]:=A[i] end;
writeln('Массив А');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to j do write(B[i],' ');
writeln;
writeln('Массив C');
for i:=1 to k do write(C[i],' ');
writeln
end.