Задать вопрос
27 апреля, 20:25

Программирование на Паскале.

Задан массив S (N) из трехзначных целых чисел, где N - заданное натуральное число. Сформировать 1-мерный массив В из элементов исходного массива в записи которых есть только цифры " 1 " и "2" Если таких элементов нет, выдать соответствующее текстовое сообщение

+2
Ответы (1)
  1. 27 апреля, 20:32
    0
    Var inner, i, a, b, c, d, N, N1 : integer;

    ar:array[1 ... N] of integer;

    bar:array[1 ... N1];

    begin

    read (N) ;

    inner:=0;

    for i:=1 to N do

    read (ar[i]) ;

    for i:=1 to N do begin

    a:=arr[i] mod 10;

    b:=arr[i] div 10;

    c:=b mod 10;

    d:=b div 10;

    if ((a=1) or (a=2)) and ((c=1) or (c=2)) and ((d=1) or (d=2)) do begin

    inner:=inner+1;

    bar[inner]:=ar[i];

    end;

    end;

    if inner=0 then write ('Элемнтов нет!')

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Программирование на Паскале. Задан массив S (N) из трехзначных целых чисел, где N - заданное натуральное число. Сформировать 1-мерный ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) Задан массив из 11 целых чисел. Найти сумму элементов массива, кратных 5 2) Задан массив из 11 целых чисел. Посчитать количество нечётных элементов массива. 3) задан массив из 9 целых чисел. Вывести на экран чётные элементы
Ответы (1)
1) Дан одномерный массив А[N], - целых чисел. Заменить все большие 7 члены массива числом 7. Найти количество таких членов. 2) Задан массив из 10 элементов, найти произведение элементов массива. Задача №3.
Ответы (1)
В записи m[7]=9 m обозначает 1) имя массива 2) имя элемента массива 3) номер элемента массива 4) значение элемента массива в записи m[7]=
Ответы (1)
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)