Вопрос по информатике:
Дан массив из N чисел. N - четное. Написать программу, меняющую местами элементы с четными и нечетными номерами.
Плиз помогите оч надо
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.06.2015 01:29
- Информатика
- remove_red_eye 8512
- thumb_up 41
Ответы и объяснения 1
Program Yolo;
Uses Crt;
Const N=16;
Var Mass: array [1..n] of integer;
Back: integer;
i: byte;
Begin
Randomize;
ClrScr;
Writeln('Исходная матрица [-15;15]: ');
For i:=1 to N do
Begin
Mass[i]:=Random(31)-15;
Write(Mass[i]:4);
End;
Writeln;
For i:=1 to N do
If i mod 20 then
Begin
Back:=Mass[i];
Mass[i]:=Mass[i+1];
Mass[i+1]:=Back;
End;
Writeln('Отформотированный матрица: ');
For i:=1 to N do
Write(Mass[i]:4);
Readln;
End.
- 15.06.2015 11:55
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.