1. Робот техникасы тарихында қандай ғалымдар еңбек сіңірген?

271

363

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

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

Feirte

Информатика

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

Program task; const n = 5; var a: array [1..n] of integer; i, k: integer; begin writeln('введите ', n, ' целых чисел через пробел'); for i : = 1 to n do read(a[i]); for i : = 1 to n do if a[i] mod 2 = 0 then begin write(a[i], ' '); k : = k + 1; end; writeln; writeln('всего: ', k); readln; end.