Вопрос по информатике:
Программирование на Паскале.
Задан массив S(N) из трехзначных целых чисел , где N- заданное натуральное число. Сформировать 1-мерный массив В из элементов исходного массива в записи которых есть только цифры " 1 " и "2" Если таких элементов нет , выдать соответствующее текстовое сообщение
- 04.11.2017 05:46
- Информатика
- remove_red_eye 7867
- thumb_up 41
Ответы и объяснения 1
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.
- 05.11.2017 06:22
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.