program z1;
var a:array[1..6]of integer;
i:integer;
begin
write('Массив: ');
for i:= 1 to 6 do
begin
a[i]:= random(10);
write(a[i]:3)
end;
writeln;
write('Массив: ');
for i:= 1 to 6 do
begin
if a[i] mod 2 = 0 then a[i]:=5;
write(a[i]:3)
end
end.
Объяснение:
Чётный элемент - это элемент значение которого чётное число.
Если чётный элемент - это элемент индекс которого чётное число, то строку
if a[i] mod 2 = 0 then a[i]:=5;
заменить на
if i mod 2 = 0 then a[i]:=5;
