Составьте программу ,которая организует ввод массива а[1..10] с клавиатуры , затем преобразовает массив , заменяя все отрицательные элементы их модулями.
mrchernuczky698
2
19.03.2019 06:50
0
Другие вопросы по теме Информатика
NameXD
26.01.2021 19:19
Danyaizbanu
26.01.2021 19:19
chelsi09
26.01.2021 19:19
Каросло
24.10.2020 16:39
ваня2007123
24.10.2020 16:39
Лилия515
24.10.2020 16:39
Max04032003
24.10.2020 16:22
operat0r
02.02.2021 22:29
Популярные вопросы
- Мини сочинение на тему одноклассники сверстники друзья...
3 - 1. какие блюды у тебя дома готовят из растений семейства пасленовых...
3 - Глагол пойти это единственное число?...
2 - Переведите yesterday ann saw a strange man leaving the house....
1 - Платье хозяйки медной горы было расшито 2464 бусинками три четвертых...
3 - Гайз, мне б . при взаимодействии каких веществ водород не выделяется?...
1 - Парашутист ,маса якого 80 кг,рівномірно рухається вниз.чому дорівнює...
2 - Вычислите массу магния, прореагировал с разведенной серной кислотой,...
2 - На воскресный овощной базар 80 ящиков с помидорами и огурцами. масса...
2 - Нужно поговорки со словом рука,пословицы со словом голова,и поговорки...
1
var a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
if a[i]<0 then a[i]:=abs(a[i]);
writeln;
for i:=1 to 10 do write(a[i],' ');
end.