Заполнить массив из 13 элементов случайными числами в интервале [0, 100] и найти количество элементов массива делящихся на два без остатка.

111

122

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

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

dianka0202

Информатика

4,7(55 оценок)

Var a: array [1..13] of integer; i,k: integer; begin randomize; writeln('массив: '); for i: =1 to 13 do begin a[i]: =random(101); write(a[i],' '); end; writeln; for i: =1 to 13 do if (a[i] mod 2)=0 then k: =k+1; writeln('количество элементов делящихся на 2 без остатка: ',k); end.