Вопрос по информатике:
1) Дан массив целых чисел из 12 элементов. Напечатать все четные элементы.
2) Дан массив целых чисел из 10 элементов. Все элементы, кратные числу 10, заменить нулём.
Нужна полная программа, Pascal ABC.
Пожаловаться
- 16.08.2018 00:29
- Информатика
- remove_red_eye 7627
- thumb_up 8
Ответы и объяснения 1
Var
A:array[1..12] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 12 do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
WriteLn;
Write('Чётные элементы: ');
For i:= 1 to 12 do
if A[i] mod 2 = 0 then Write(A[i],' ')
End.
Var A:array[1..10] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 10 do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
WriteLn;
Write('Обработаный массив: ');
For i:= 1 to 10 do
Begin
if A[i] mod 10 = 0 then A[i]:=0;
Write(A[i],' ')
End;
End.
A:array[1..12] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 12 do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
WriteLn;
Write('Чётные элементы: ');
For i:= 1 to 12 do
if A[i] mod 2 = 0 then Write(A[i],' ')
End.
Var A:array[1..10] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 10 do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
WriteLn;
Write('Обработаный массив: ');
For i:= 1 to 10 do
Begin
if A[i] mod 10 = 0 then A[i]:=0;
Write(A[i],' ')
End;
End.
Пожаловаться
- 16.08.2018 05:58
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы