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

Ответы 1

  • var inner,i, a,b,c,d,N,N1 : integer;ar:array[1..N] of integer;bar:array[1..N1];beginread(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.
    • Автор:

      nasirgjoa
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years