Вопрос по информатике:
С Р О Ч Н О !!!!
Задать массив, состоящий из 10 элементов, заполнить его любыми числами с клавиатуры и все его элементы:
а) увеличить на число b
б)уменьшить на последний элемент.
Необходимо составить две разные программы на языке Паскаль.
ПОЖАЛУЙСТА, П О М О Г И Т Е!!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.04.2016 14:00
- Информатика
- remove_red_eye 9083
- thumb_up 26
Ответы и объяснения 1
N = 10;
Var
A:array[1..N] of integer;
i,b:integer;
Begin
Write('b = ');ReadLn(b);
Write('Введите массив: ');
For i:= 1 to N do
Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
Begin
A[i]:=A[i]-b;
Write(' ',A[i])
End;
End.
Const
N = 10;
Var
A:array[1..N] of integer;
i:integer;
Begin
Write('Введите массив: ');
For i:= 1 to N do Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
Begin
A[i]:=A[i]-A[N];
Write(' ',A[i])
End;
End.
- 07.04.2016 10:10
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.