Заполнить случайным образом массив из 10 целых чисел,подсчитать сколько элементов в массиве является четными числами. ,прошу

288

467

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

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

Mornes

Информатика

4,6(73 оценок)

1способ: const n=10; var a: array[1..n] of integer; i,k: integer; begin randomize; writeln('массив a: '); for i: =1 to n do begin a[i]: =random(51); write(a[i]: 4); end; writeln; k: =0; for i: =1 to n do if a[i] mod 2 = 0 then k: =k+1; writeln('k = ',k); end. пример: массив a: 46 25 6 30 10 2 47 3 37 10 k = 62 способ: beginvar a: =arrrandom(10,1,50).println; writeln('k=',a.where(x-> x mod 2=0).count); end.пример: 25 35 2 38 39 5 8 31 11 12k=4