Вопрос по информатике:
Из массива А, состоящего из n целых элементов, получить массив В, в который войдут все элементы массива А, кратные 3.Число n и элементы массива А ввести с клавиатуры. На экран вывести массив В.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.12.2017 15:59
- Информатика
- remove_red_eye 11967
- thumb_up 50
Ответы и объяснения 2
Var
a, res: array of integer;
x, N, i, k: integer;
begin
readln(N);
SetLength(a,N);
SetLength(res,N);
for i := 0 to N - 1 do
readln(a[i]);
k := 0;
for i := 0 to N - 1 do
if a[i] mod 3 = 0 then
begin
res[k] := a[i];
k := k + 1;
end;
for i := 0 to k - 1 do
writeln(res[i]);
end.
- 02.12.2017 11:24
- thumb_up 13
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
var b:=a.Where(t->t mod 3=0).ToArray; b.Println
end.
- 03.12.2017 06:40
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.