var a: array[1..9999] of integer; i, n: integer; begin randomize; Write('Введите число эементов массива: '); readln(n); for i:=1 to n do begin a[i]:=-999+random(1001); write('a[', i, ']=', a[i]); if a[i] mod 2 = 0 then write(' - кратно 3') else write(' - не кратно 3'); writeln; end; writeln('Увеличим номера чисел, кратных 3, в 2 раза:'); for i:=1 to n do begin if a[i] mod 2 = 0 then begin a[i]:=a[i]*2; writeln('a[', i, ']=', a[i]); end; end; end.
var
a: array[1..9999] of integer;
i, n: integer;
begin
randomize;
Write('Введите число эементов массива: '); readln(n);
for i:=1 to n do
begin
a[i]:=-999+random(1001);
write('a[', i, ']=', a[i]);
if a[i] mod 2 = 0 then write(' - кратно 3')
else write(' - не кратно 3');
writeln;
end;
writeln('Увеличим номера чисел, кратных 3, в 2 раза:');
for i:=1 to n do
begin
if a[i] mod 2 = 0 then
begin
a[i]:=a[i]*2;
writeln('a[', i, ']=', a[i]);
end;
end;
end.