var a: array [1..Sz] of integer:=(2,4,6,8,10); N: integer; // Количество элементов в массиве i: integer;
begin N:=5; for i:=1 to N do begin if (a[i] mod 4)=0 then a[i]:=i else a[i]:=a[i]*2; end; write('Вывод элементов массива: '); for i:=1 to N do write(a[i],' '); end.
Answers & Comments
var
a: array [1..Sz] of integer:=(2,4,6,8,10);
N: integer; // Количество элементов в массиве
i: integer;
begin
N:=5;
for i:=1 to N do
begin
if (a[i] mod 4)=0 then
a[i]:=i
else
a[i]:=a[i]*2;
end;
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
end.