Найти количество чётных элементов массива, стоящих на нечётных местах

@rinatan · Регистрация: 25.03.2013

Студворк — интернет-сервис помощи студентам

Вроде сделал правильно. Проверьте.

Pascal

program z;
var a:array[1..10] of integer; i,k:integer;
begin
randomize;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(10);
writeln('a[',i,']=',a[i]);
if (a[i] mod 2=0) and (i mod 2=1) then k:=k+1;
end;
writeln('Количество элементов ',k);
end.

@Midian · 22.04.2013, 21:14

Pascal

1	if (a[i] mod 2 = 0) and (i mod 2 <> 0) then inc(k);

@rinatan · 24.04.2013, 18:51 **[ТС]**

Вообщем и так

Pascal

1	if (a[i] mod 2=0) and (i mod 2=1) then k:=k+1;

и так

Pascal

1	if (a[i] mod 2 = 0) and (i mod 2 <> 0) then inc(k);

правильно

Опции темы