Помогите создать программу в паскале, которая сможет найти количество нечетных элементов массива!!) Срочно!!) Заранее спасибо!)
var a:array [1..20] of integer;

1

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

2013-12-14T09:42:48+00:00
Program P;
var i, s, elem: integer; a: array [1..20] of integer;
BEGIN
 s := 0;
 FOR i := 1 TO 20 DO
 BEGIN
   IF (a[i] mod 2 = 1) THEN s := s + 1;
 END
  writeln('Число нечетных элементов', s)
END;
END.
спасибо большое) вроде всё правильно сделала, но всё равно не то выводило) спасибо) выручили;)