Вопрос по информатике:
ТурбоПаскаль 7. Ввести с клавиатуры одномерный массив А целого типа. Сформировать новый массив С, переписав в него элементы масссива А с индексами кратными 3
Пожаловаться
- 13.08.2018 03:32
- Информатика
- remove_red_eye 18447
- thumb_up 47
Ответы и объяснения 1
Const
nn=100;
var
A,C:array[1..nn] of integer;
i,k,n:integer;
begin
Write('n='); Read(n);
k:=0;
for i:=1 to n do begin
Read(a[i]);
if i mod 3=0 then begin
k:=k+1; c[k]:=a[i]
end
end;
Write('C[',k,']= ');
for i:=1 to k do Write(c[i],' ');
Writeln
end.
Пример
n=10
3 18 -6 14 21 42 15 28 -7 12
C[3]= -6 42 -7
nn=100;
var
A,C:array[1..nn] of integer;
i,k,n:integer;
begin
Write('n='); Read(n);
k:=0;
for i:=1 to n do begin
Read(a[i]);
if i mod 3=0 then begin
k:=k+1; c[k]:=a[i]
end
end;
Write('C[',k,']= ');
for i:=1 to k do Write(c[i],' ');
Writeln
end.
Пример
n=10
3 18 -6 14 21 42 15 28 -7 12
C[3]= -6 42 -7
Пожаловаться
- 15.08.2018 00:54
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы