Задать вопрос
1 ноября, 18:51

Сформировать массив из случайных двузначных чисел разделив этот массив на два массива в один все чётные в другой не чётные.

+4
Ответы (1)
  1. 1 ноября, 19:00
    0
    Var ar:array[1 ... 10] of integer;

    ar1:array[1 ... 10] of integer;

    ar2:array[1 ... 10] of integer;

    i, n1, n2:integer;

    begin;

    randomize;

    writeln ('First array:') ;

    for i:=1 to 10 do begin;

    ar[i]:=random (10,99) ;

    if odd (ar[i]) then / / если нечётно

    begin;

    inc (n1) ;

    ar1[n1]:=ar[i];

    end

    else

    begin;

    inc (n2) ;

    ar2[n2]:=ar[i];

    end;

    write (ar[i]:4) ;

    end;

    writeln;

    writeln ('Array A:') ;

    for i:=1 to n1 do

    write (ar1[i]:4) ;

    writeln;

    writeln ('Array B:') ;

    for i:=1 to n2 do

    write (ar2[i]:4) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сформировать массив из случайных двузначных чисел разделив этот массив на два массива в один все чётные в другой не чётные. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы