Дан массив содержащий n(n меньше =100) злементов отрицательные элементы массива заменить их модулями а положительные увеличить на 5
Дан массив содержащий 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
Не нашли ответ?
Похожие вопросы