Const N = 10; var arr: array[1..N] of integer; - вопрос №14282876101 от dsgsdfgasdasd 19.11.2021 14:12

Question

Другие предметы: 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. Что значит последний цикл?

dsgsdfgasdasd · Answer

const

N = 10;

var

a: array[1..N] of integer;

i, k, j, new_x: integer;

begin

randomize;

writeln('Исходный массив:');

for i := 1 to N do

begin

a[i] := random(100) - 50;

write(a[i], ' ');

end;

writeln;