сделать индивидуальные задания (кратко объясните как вы сделали, чтобы я смог сам разобраться и ответ не был удален)

252

431

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

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

Qwiq

Информатика

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

Program n1; uses crt; var aw: array[1..10] of integer; i,w,g: integer; begin g: =0; w: =10; for i: =0+1 to w do begin aw[i]: =random(100); write(aw[i]: 6); end; writeln(); write('чот'); for i: =0+1 to w do begin if aw[i] mod 2 = 0 then g: =g+1; end; write('всего чотных чисел ',g); writeln(); write('не чот'); g: =0; for i: =0+1 to w do begin if aw[i] mod 2 > 0 then g: =g+1; end; write('всего не чотных чисел ',g) ; end.только в столбик