Информатика: Написать программу рисования звезды со стороной 50

Nastyacat200809

14.07.2021 03:53

Информатика

Есть ответ 👍

Написать программу рисования звезды со стороной 50

116

191

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

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

korostelevaanap0a9d1

Информатика

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

Var a: array[1..100]of integer; nol,chet,nechet,i,n: integer; begin readln(n); for i: =1 to n do begin readln(a[i]); if (a[i] mod 2=0)and(a[i]< > 0) then chet: =chet+1; if (a[i] mod 2=1) then nechet: =nechet+1; if a[i]=0 then nol: =nol+1; end; writeln('четных : ',chet,' ','нечетных : ',nechet,',' ',нулевых : ',nol); end.