Информатика Архивный вопрос

Нужно составить программу в paskal ABC:
Массив содержит n случайных двузначных чисел. Определить сколько в данном массиве четных чисел. Вывести все его элементы с нечетными номерами.

Нет комментариев

Ответы

Гость

Var a: array [1..10] of integer;var kolvo:integer;beginfor var i:= 1 to 10 do a[i]:= random(89)+10;for var c:= 1 to 10 do begin if(a[c] mod 2 = 0) then kolvo:=kolvo+1; end;writeln('Четных чисел: ', kolvo);for var i:= 1 to 10 do write(a[i]:4);end.объяснение нужно?

Нет комментариев