atri
Опубликовано 7 лет назад по предмету Информатика от atri


Сформировать массив А из 30 случайных целых чисел в диапазоне от-30 да 50. Сформировать массивы С,В которые содержат: массив В - четные элементы из массива А в порядке их следования в массиве А, массив С- отрицательные элементы массива А в порядке, обратному их следованию в массиве А.

  1. Ответ
    Ответ дан sinbad7

    var

    i,j,k:integer;

    a,b,c:array [1..30] of integer;

    begin

    randomize;

    j:=0;

    k:=0;

    for i:=1 to 30 do

    begin

    a[i]:=random(80)-30;

    if a[i] mod 2 =0 then

    begin

    j:=j+1;

    b[j]:=a[i]

    end

    end;

    for i:=30 downto 1 do

    if a[i]<0 then

    begin

    k:=k+1;

    c[k]:=a[i];

    end;

    for i:=1 to j do

    writeln(b[i]);

    for i:=1 to k do

    writeln(c[i]);

    end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц