На паскале(нужно полное решение) задан массив случайным образом. преобразовать его след. образом: все отрицательные элементы заменить модулем, положительные удвоить, нулевые заменить числом 10
АполинарияТВ
3
18.05.2019 18:00
0
Другие вопросы по теме Информатика
Cat09112005
18.09.2019 16:10
Настечок
20.07.2019 15:30
89232752183
20.07.2019 15:30
gfsfsdcxz
26.03.2020 22:03
Dirol1337
26.03.2020 22:17
khmelyuko
26.03.2020 22:07
ahmedovsaladin
24.04.2020 16:09
Limon2601
30.10.2020 18:08
КатяЗюзина
30.10.2020 18:08
Популярные вопросы
- Пропанон (ацетон): 1) содержит в молекуле 3 атома углерода и 4...
2 - Расставить коэффициенты и укажите окислитель и восстановитель...
3 - Побудуйте графік рівняння: 3х + 2у = 1...
2 - Похила дорівнює 12см. Чому дорівнює проекція цієї похилої на площину....
2 - Какими свойствами моющие средства похожи?...
3 - В ΔPQR на стороне PQ отмечена точка A, на стороне PR - точка B....
2 - Охранник охранного предприятия «Штандарт» Глебов задержал Кравченко...
3 - Доказать, четырехугольник ABCD - прямоугольник, если А(-1;5;-4)...
3 - Решите неравенство: lg (3 х−4 ) lg (2 х+1 )...
1 - найти книгу действие происходило в городке. девушка решила встретиться...
1
var A: array [1..100] of integer;
i: integer;
begin
randomize;
for i := 1 to 100 do begin
A[i] := random(200) - 100;
end;
for i := 1 to 100 do begin
if (A[i] < 0) then A[i] := Abs(A[i]);
else if (A[i] > 0) A[i] := A[i] * 2;
else A[i] = 10;
end;
end.