Написать программу, которая вводит массив из n вещественных чисел, а затем заменяет в нём все элементы, превышающие данное число z, этим числом. вывести на экран полученный массив и количество замен. протестировать программу на следующих исходных данных: а) z=10 массив: 1,2 2,6 3 -4,5 11 10,2 3,2 87 -15 б) z=-2 массив: 0 -3,1 11 -7,9 -2,1 -1,9 4
RomeTo
3
23.08.2019 19:10
4
Другие вопросы по теме Информатика
GeCUri
17.05.2020 09:46
Apelsinka32
17.05.2020 09:46
SSultanShaS
17.05.2020 09:47
misterbory
05.09.2021 20:03
1321321325555555
05.09.2021 20:04
vicroriaalakoz3
05.09.2021 20:20
EdSid
05.09.2021 20:34
Lubov080301
05.09.2021 20:36
zlatoslava2p08lf0
05.09.2021 20:47
про783
02.08.2019 16:40
Популярные вопросы
- Сочинение стыдится тех,от кого ты появился на свет - это признак душевной низости...
1 - Натуральное число х на 25 процентов больше натурального числа у, вопрос, на сколько...
3 - Желательно с объяснениями! 45...
3 - Парашутист рівномірно опускається на парашуті, а це означає,що його кінетичне енергія...
2 - Укажите решения 111 всероссийского съезда советов?...
3 - Постройте график функции f(x)=x^2-4x+3. используя график найдите: 1)область значений...
3 - Выпишите числительные словами вместе с существительными укажите их ряд формул подчеркните...
1 - Скласти кросворд про вергілія марон-) plis...
3 - Найти доказать все равные треугольники ! ! ...
2 - Розв яжіть графічно рівняння x+2=3÷x...
3
begin
var a:=readARRreal('Вводите: ', readinteger('n ='));
var z:=readreal('z ='); var count:=0;
for var i:=0 to length(a)-1 do if a[i]>z then begin
a[i]:=z;
count+=1;
end;
writeln ('Кол-во замен: ', count);
a.Print;
end.