var a: array[1..10] of integer;
i,sum: integer;
begin
sum:=0;
writeln('введите массив:');
for i:=1 to 10 do begin
readln(a[i]);
if a[i] mod 2=0 then sum:=sum+a[i];
end;
a[1]:=sum;
write('полученный массив: ');
for i:=1 to 10 do write(a[i],' ');
end.
Цикл со счетчиком 17-4.png
<span>Цикл с условием 17-5.jpg</span>