DudukinSerega2507834
?>

221. На¬пи¬ши¬те про¬грам¬му для ре¬ше¬ния сле¬ду-ю¬щей за¬да¬чи. Ка¬ме¬ра на¬блю¬де¬ния ре¬ги¬стри¬ру¬ет в ав¬то¬ма¬ти¬че¬ском ре¬жи¬ме ско¬рость про¬ез¬жа¬ю¬щих мимо неё ав¬то¬мо¬би¬лей, округ¬ляя зна¬че¬ния ско¬ро-сти до целых чисел. Не¬об¬хо¬ди¬мо опре¬де¬лить мини¬маль¬ную за¬ре¬ги¬стри¬ро¬ван¬ную ско¬рость всех ав¬то¬мо¬би¬лей. Про¬грам¬ма по¬лу¬ча¬ет на вход число про¬ехав¬ших ав¬то¬мо¬би¬лей N (1 =< N =< 30), затем ука¬зы¬ва¬ют¬ся их ско¬ро¬сти. Зна¬че¬ние ско¬ро¬сти не может быть мень¬ше 1 и боль¬ше 300.Про¬грам¬ма долж¬на вы¬ве-сти мини¬маль¬нуюско¬рость. При¬мер ра¬бо¬ты про¬грам¬мы: Вход¬ные дан-ные Вы¬ход¬ные дан-ные 4 74 69 63 96 63

Информатика

Ответы

kiruha0378
Const n=10; m=5;
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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

221. На¬пи¬ши¬те про¬грам¬му для ре¬ше¬ния сле¬ду-ю¬щей за¬да¬чи. Ка¬ме¬ра на¬блю¬де¬ния ре¬ги¬стри¬ру¬ет в ав¬то¬ма¬ти¬че¬ском ре¬жи¬ме ско¬рость про¬ез¬жа¬ю¬щих мимо неё ав¬то¬мо¬би¬лей, округ¬ляя зна¬че¬ния ско¬ро-сти до целых чисел. Не¬об¬хо¬ди¬мо опре¬де¬лить мини¬маль¬ную за¬ре¬ги¬стри¬ро¬ван¬ную ско¬рость всех ав¬то¬мо¬би¬лей. Про¬грам¬ма по¬лу¬ча¬ет на вход число про¬ехав¬ших ав¬то¬мо¬би¬лей N (1 =< N =< 30), затем ука¬зы¬ва¬ют¬ся их ско¬ро¬сти. Зна¬че¬ние ско¬ро¬сти не может быть мень¬ше 1 и боль¬ше 300.Про¬грам¬ма долж¬на вы¬ве-сти мини¬маль¬нуюско¬рость. При¬мер ра¬бо¬ты про¬грам¬мы: Вход¬ные дан-ные Вы¬ход¬ные дан-ные 4 74 69 63 96 63
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

aci2003
Мария-Кострыгина175
ddobrov32133
o-pavlova-8635
nailboxru
Ярослав
svetkaiv
Дмитрий1974
fedotochkin8
alexluu33
Владимирович_Ралина
Nugamanova-Tatyana840
klepa-79
Kubataeva Nikolaevich1389
stasyan