Вопрос по информатике:
Дан целочисленный массив размера N (> 2). Удалить из массива все элементы с нечетными номерами (1, 3, …).
Попробовал написать, но не получилось.
program project2;
var n,i, nech:integer;
A:array [1..10] of integer;
begin
n:=10;
for i:=1 to n do
begin
writeln('Vvedite a[',i,']');
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then
nech:=i;
for i:=nech to n-1 do
a[i]:=a[i+1];
writeln('massiv imeet vid');
for i:=1 to n do writeln (a[i]);
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.11.2016 07:47
- Информатика
- remove_red_eye 12463
- thumb_up 46
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray;
a.Println
end.
Пример
n= 15
-31 20 -30 -1 -47 1 19 -47 32 36 -32 7 -43 -40 -23
20 -1 1 -47 36 7 -40
- 02.11.2016 06:17
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.