Выполнить по на программу паскаль написать программу подсчета количества элементов, если индекс ячейки нечетное число, а элемент ячейки-чётное

177

464

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

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

АльтЛанд

Информатика

4,5(10 оценок)

Var i,n: integer; a: array[1..20]of integer; begin writeln('исходный массив: '); for i: =1 to 20 do begin a[i]: =random(10); if (i mod 2=1) and (a[i] mod 2=0) then n: =n+1; write(a[i],' '); end; writeln; writeln('искомых элементов: ',n); end.