Var
a, k: array [1..30] of integer;
i: byte;
begin
for i := 1 to 30 do
begin
a[i] := random(255);
writeln(String.Format(a[{0}] => {1} |, i, a[i]));
end;
for i := 1 to 30 do
k[i] := -1 * a[i];
for i := 1 to 30 do
writeln(String.Format(k[{0}] => {1} |, i, k[i]));
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.