Посчитать количество четных и нечетных цифр в числе 10. СОСТАВИТЬ ПСЕВДОКОД

283

481

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

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

sergsjvashhuk

Информатика

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

Var n,k,i,i2,zn,zn2: integer; a: array[1..100] of integer; begin readln(n,k); for i: =1 to n do read(a[i]); zn: =a[1]; for i2: =1 to k do begin a[1]: =a[n]; for i: =2 to n+1 do if i< > n+1 then begin zn2: =a[i]; a[i]: =zn; zn: =zn2; end; end; for i: =1 to n do write(a[i],' '); end.