Предмет: Информатика,
автор: serge18081978
Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от -10 до 10, затем преобразовывает массив, заменяя все отрицательные элементы их модулями
Ответы
Автор ответа:
0
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i]:4)
end;
writeln;
for i:=1 to 10 do
begin
if a[i]<0 then a[i]:=abs(a[i]);
write (a[i]:4)
end
end.
Автор ответа:
0
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(10, -10, 10);
a.Println;
a.Transform(t -> Abs(t));
a.Println
end.
-1 -6 -8 4 10 -5 -7 -8 10 6
1 6 8 4 10 5 7 8 10 6
Интересные вопросы
Предмет: Алгебра,
автор: Shon2208
Предмет: Русский язык,
автор: ertugrulghaziogluosm
Предмет: Математика,
автор: korzhikpetrovskiy
Предмет: Информатика,
автор: SakaNika
Предмет: Математика,
автор: Аноним