Решить на паскале: найти количество нечетных элементов массива и уменьшить каждый элемент начального массива на это количество. начальный и преобразованный массивы отпечатать.

const n=10;

var a:array[1..n] of integer;

i,k: integer;

begin

for i:=1 to n do

begin

a[i]:=random(21)-10;

write (a[i]:3,' ');

if a[i] mod 2 <> 0 then k:=k+1

end;

writeln;

for i:=1 to n do

begin

a[i]:=a[i]-k;

write (a[i]:3,' ')

end

end.

PYfy9pX4YibdfKzE8dnbSXaP3D5sbZenWQXx+TzottBxmrnKP4dS39zDFCHeytaxQuaxO6+SihcUhSqF6PmmxN3GxGIIAPLiSxjqjTtSHbvo7htEBwkC9DrKA9nK9xIOxPRcjpd6DAdMG0SkqPbK1+57wXgl2KsD43bDyI91iNHZGVEFuJjW2WjoZmDZOb/rVd7R9AqyWfNwqgLu5n0s8oZKpT55zvtPlOdDo6CM93h3C9G55Qj17fBXO/NNywpSzMGUqCxZha8Dm9QprL4Amawdo2pnCyu31Kn+Zny692acWR8k+IjeIoeL9HS7GGpxomAYoUcl2QOl2meKVWiovxtHmLKNooQK1Hc8yqvu293YHqgzQp3rHNgJxPJfiQnUmlYXGvOGZLk6vEUXIiesvdftDsCS/8Ae6YiLr8HWExGez9YXrworoX46BqS86+EFy3m8zwgu1fA9z61qLUP90KYw8KxlJJDWAThAVGrADHEsoHJ35+216/jwx5ruS3xgPOL83Vy5P1bL884jUiefVsuhprgR7C75lvy2ZCUYolQ=

- Наименование файла и наименование программы –

2 - Текстовое Меню - Файл Правка Вставка Формат Сервис Таблица Окно Справка.

3 - Панель инструментов Стандартная - первый ряд кнопок под строкой меню. С этих кнопок выполняются основные операции с текстами и документами.

4- Панель инструментов Форматирование - на ней содержатся кнопки для различных преобразований в тексте.

5 - Горизонтальная линейка.

6 - Вертикальная линейка

7 - Полоса прокрутки вертикальная - для перемещения по странице.

8 - Полоса прокрутки горизонтальная - для перемещения по странице

9 - Разметка страницы (поля)

10 - Курсор редактора (процессора) Word

11 - Рабочая часть (лист для документа)

12 - Панель инструментов Рисование

13 - Строка состояния - (в ней отображается № страницы, количество символов в строке и др.