Задан массив из 10 целых чисел. замените все положительные элементы данного массива его максимальным элементом.
jon10079595
2
19.03.2019 04:20
0
Другие вопросы по теме Информатика
новиновичек
13.12.2021 19:35
mariee875maria
13.12.2021 19:34
krazy4550
04.04.2020 15:54
1981katerina
04.04.2020 16:21
svetik1310
04.04.2020 15:53
lorik02
04.04.2020 15:59
krudnya
04.04.2020 15:59
ANADTYEE
17.06.2019 15:50
potochnystanis
17.06.2019 15:50
120954943921
27.05.2019 22:00
Популярные вопросы
- 13 Put the verbs in brackets Into the correct infinitive form or the -ing form....
1 - Какие особенности характеризовали политическую жизнь страны во время третьей...
2 - Составте уровнение и решите .Если к неизвесному числу прибавить 1/5 этого же...
3 - Коркыт ата накыл создеринин мани недде эссе...
2 - Серед поданих речень знайдіть складні з підрядними допустовими. Поясніть їх стилістичні...
2 - Фізика 10 клас Самостійна робота з теми «Застосування законів збереження енергії...
3 - Homework Answer the questions. ответьте на вопросы.1) Where can we buy biscuits?e.g....
3 - Ученый, исследовавший Сарыарку и Горный Алтай...
1 - каковы были взаимоотношения между партиями Уш жуз и Алаш? Чей юбилей отмечался...
3 - Побудувати графік функції y=√(4+4x+x^2 )-√(4-4x+x^2 )....
2
var a:array[1..10]of integer;
i,max:integer;
begin
for i:=1 to 10 do readln(a[i]);
max:=a[1];
for i:=2 to 10 do if max<a[i] then max:=a[i];
for i:=1 to 10 do if a[i]>0 then a[i]:=max;
writeln;
for i:=1 to 10 do write(a[i],' ');
end.