Коментарии к программе

uses crt;
var
 i,n,k :byte;
 f: real;
 a : array [1..10] of byte; 
begin
    writeln('vvedite razmernost');
    readln (n);
    writeln ('vvedite massiv');
    for I := 1 to n do
    readln(a[i]);
    writeln ('massiv');
    writeln ;
    k:=0; 
    for i := 1 to n do
    write (a[i],' ' );
    for I := 1 to n   do
    if a[i]=0 then
    k:=k+1;
    f:=(k/n)*100;
    writeln ('procent nylevix elementov',f:6:1,'%');
    readln;
  end.

uses crt;//раздел подключаемых модулей, подключаем модульUNIT) CRT, являющийся станартным
var i,n,k :byte; f: real; a : array [1..10] of byte;//раздел описания переменных, используемых при дальнейшей работе
begin//начало основного модуля программы
writeln('vvedite razmernost');//выводим посказку пользователю
readln (n);//ввод значения переменной n, после подсказки выведенной выше
writeln ('vvedite massiv');//выводим сообщение
for I := 1 to n do//цикл, от 1 до n, в данном цикле i с каждым выполнением цикла меняется на i=i+1
readln(a[i]);//вводим i-ый элемент массива
writeln ('massiv');//выводим сообщение
writeln ;//переводим курсор на новую строку ( writeln- вывод сообщения и перевод на новую строку, write- вывод сообщения и курсор остается на этой же строке )
k:=0;//обнуляем переменную К для работы
for i := 1 to n do//цикл от 1 до N
write (a[i],' ' );//выводим элементы массива в одну строку через пробел
{цикл для определения количества нулей в массиве "a"}
for I := 1 to n do//цикл от 1 до N
if a[i]=0 then//условие. если i-ый элемент массива равен  нулю
k:=k+1;//если написанное выше условие выполняется, то увеличиваем значение переменной K на единицу
f:=(k/n)*100;//присваиваем переменно f. Вычисление процентов нулей в массиве "a"
writeln ('procent nylevix elementov',f:6:1,'%');//выводим процент нулевых элементов
readln;//ждем нажатия клавиши для окончания работы
end.