Вопрос по информатике:
Паскаль. Вывести заданный массив на печать в несколько строк таким образом, чтобы каждая новая строка, начиная со второй начиналась с четного элемента массива
Пожаловаться
- 24.11.2016 19:46
- Информатика
- remove_red_eye 15629
- thumb_up 21
Ответы и объяснения 1
Const
N = 10;
Var
A:array[1..N] of integer;
i:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to N do
Read(A[i]);
Write(A[1],' ');
For i:= 2 to N do
Begin
if A[i] mod 2 = 0 then WriteLn;
Write(A[i],' ')
End;
End.
N = 10;
Var
A:array[1..N] of integer;
i:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to N do
Read(A[i]);
Write(A[1],' ');
For i:= 2 to N do
Begin
if A[i] mod 2 = 0 then WriteLn;
Write(A[i],' ')
End;
End.
Пожаловаться
- 25.11.2016 14:43
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы