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

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

+5
Ответы (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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сформировать массив из случайных двузначных чисел разделив этот массив на два массива в один все чётные в другой не чётные. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сформировать массив А из 30 случайных целых чисел в диапазоне от-30 да 50. Сформировать массивы С, В которые содержат: массив В - четные элементы из массива А в порядке их следования в массиве А, массив С - отрицательные элементы массива А в
Ответы (1)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)
1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.
Ответы (1)
4. Из элементов массива A сформировать массив A той же размерности по правилам: Если номер четный, то B[i]:=i*, если нечетный, то B[i]:=-A[i]. 5. Сформировать массив а с помощью датчика случайных чисел целыми числами из интервала [-15,70]. 6.
Ответы (1)
Массив заполнен случайным образом 20 числами в интервале от 0 до 100. 1) найти максимальный и минимальный элемент массива, а так же их сумму 2) найти среднее арифметическое элементов массива 3) из элементов массива сформировать два массива с четными
Ответы (1)