Вопрос по информатике:
ПАСКАЛЬ! Дана последовательность действительных чисел a1, a2,a3,.., an. Заменить все её члены, большие данного Z, этим числом. Подсчитать количество замен.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.09.2017 16:09
- Информатика
- remove_red_eye 15723
- thumb_up 38
Ответы и объяснения 1
A:array[1..10000] of integer;
n,Z,i:integer;
Begin
Randomize;
Write('n = ');ReadLn(n);
Write('A(',n,'):');
For i:= 1 to n do
Begin
A[i]:=random(2*n+1)-n;
Write(' ',A[i])
End;
WriteLn;
Write('Z = ');ReadLn(Z);
i:=0;
WriteLn;
Write('Новая последовательность(',n,'):');
For n:= 1 to n do
Begin
if A[n] > Z then
Begin
A[n]:=Z;
i:=i+1
End;
Write(' ',A[n])
End;
WriteLn;
WriteLn('Количество замен: ',i);
End.
- 28.09.2017 01:11
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.