Предмет: Информатика,
автор: xom9ik1
Паскаль. Вывести заданный массив на печать в несколько строк таким образом, чтобы каждая новая строка, начиная со второй начиналась с четного элемента массива
Ответы
Автор ответа:
0
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.
Автор ответа:
0
Введите массив:
3 5 1 10 -90 3 7 10 13 19
19 5 1
10
-90 3 7
10 13 19
3 5 1 10 -90 3 7 10 13 19
19 5 1
10
-90 3 7
10 13 19
Автор ответа:
0
Выводится
Автор ответа:
0
Что я делаю не так? – http://img.altcomts.ru/s/177902182053.png
Интересные вопросы
Предмет: Українська мова,
автор: sar15k15azi
Предмет: Русский язык,
автор: aktanalimzhanov
Предмет: Математика,
автор: ddacenko852
Предмет: Алгебра,
автор: АНТО14