Задача -Массивы.Наити количество элементов с четными индексами.

1

Ответы и объяснения

Лучший Ответ!
2013-05-22T18:12:32+00:00

uses crt;

var i,c:integer;

a:array[1..100] of integer;

begin

c:=0;

for i:=1 to 100 do 

if i mod 2 = 0 then inc(c);

writeln(c);

end.