![Morlugrinn](https://sproshu.net/uploads/ava/1/ava239.jpg)
Morlugrinn
5 год назад
Написать программу, которая заменяет все отрицательные элементы массива их модулями и выводит измененный массив на экран
ОТВЕТЫ
![Lera](https://sproshu.net/uploads/ava/3/ava8192.jpg)
Lera
Jun 30, 2019
//прога на Pascal`e
const
n = 10;
var
a: array[0..n-1] of shortint;
i: byte;
begin
randomize;
writeln (Исходный массив: );
for i:=0 to n-1 do
begin
a[i]:=random (101)-50;
write (a[i], ; );
end;
writeln ();
writeln (Измененный массив: );
for i:=0 to n-1 do
begin
a[i]:=abs (a[i]);
write (a[i], ; );
end;
end.
const
n = 10;
var
a: array[0..n-1] of shortint;
i: byte;
begin
randomize;
writeln (Исходный массив: );
for i:=0 to n-1 do
begin
a[i]:=random (101)-50;
write (a[i], ; );
end;
writeln ();
writeln (Измененный массив: );
for i:=0 to n-1 do
begin
a[i]:=abs (a[i]);
write (a[i], ; );
end;
end.
205
Смежные вопросы: