Составьте программу который заполняет массив а случайными целыми числами в диапозоне от 1 до 10 и находит количество элементов с чётными значениями

265

485

Посмотреть ответы 2

Ответы на вопрос:

venerkaasanova

Информатика

4,4(21 оценок)

Program kol_vo_elementov; var a: array[1..10] of integer; i, n, k: integer; begin writeln('введите кол-во элементов'); readln(n); k: =0; for i: =1 to n do begin writeln('введите число'); readln(a[i]); if (i mod 2=0) then k: =k+1; end; writeln('кол-во чётных элементов=',k); end.