Дан массив содержащий n(n<=100) злементов отрицательные элементы массива заменить их модулями а положительные увеличить на 5
//Pascal ABC.NET Версия 2.2 Сборка 790
var ar:array of integer;
i,n:integer;
begin;
randomize;
readln(n);
if n>100 then exit;
setlength(ar,n+1);
writeln(First array:);
for i:=1 to n do
begin;
ar[i]:=random(-10,10);
write(ar[i]:5);
if ar[i]>0 then ar[i]:=ar[i]+5
else ar[i]:=abs(ar[i]);
end;
writeln;
writeln(Final array:);
for i:=1 to n do
write(ar[i]:5);
end.
Пример ввода:
2
Пример вывода:
First array:
2 -1
Final array:
7 1
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
