Заполнить массив из 10 элементов целыми случайными числами от -5 до 20, вывести на экран в сроку. поменять знаки элементов на противоположные и вывести массив повторно
ArianaLi
2
07.04.2019 20:14
0
Другие вопросы по теме Информатика
bronebor
10.05.2021 13:48
Artyr2017
19.04.2021 12:25
12345678006432
19.04.2021 12:24
цццрпппр1
31.03.2020 16:25
andrewbukharin2
31.03.2020 16:26
saddddddd03
20.11.2020 17:25
vika200458
20.11.2020 17:25
Доминика671554
20.11.2020 17:25
Популярные вопросы
- Перевести на казахский. мне нравится борьба қазақша күрес. она развивает...
3 - Составьте предложения со словами: смеясь, нехотя, пошутив, шутя, лежа,...
2 - Установите соответствие между функцией растения и органом , который ее...
1 - Моток медной проволки имеет массу m=2.4 кг. и сопротивление r=4.8 ом....
2 - Найдите значение выражения (2+3x)(5x--3x)(5+x) при x=-1.1...
2 - 7целых 3/4+(2 целых 7/8- 1 целая 3/4) 3 целых 7/8+( 2 целых 3/5- 1 целая...
1 - Написать четыре письма о временах года....
3 - Найти координаты центра и радиус окружности , заданной уравнением x^2+y^2-2x+4y-20=0...
3 - Как в семье выполняется золотое правило нравственности...
1 - Две стороны треугольника равны 5 корней из 2 см и вторая равна 6 см угол...
3
Var i:Integer;
A:array[1..10] of Integer ;
Begin
For i:=1 to 10 do begin
A[i]:=random(26)-5;
Write(A[i], ' ') ;end;
Writeln;
For i:=1 to 10 do begin
If A[i]<0 then A[i]:=abs(A[i])
Else A[i]:=-A[i];
Write(A[i], ' ') end;
End.