Const N = 10; var
arr: array[1..N] of integer;
i: byte;
begin
randomize;
for i:=1 to N do begin
arr[i] := random(100) - 50;
write(arr[i]:4);
end;
writeln;
for i:=1 to N do
arr[i] := -1 * arr[i];
for i:=1 to N do
write(arr[i]:4);
writeln;
end.
Что значит последний цикл?

martyanovvanya1    3   22.10.2020 22:40    0