Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов, равных 1.

Var a: array[1..10] of integer;       i,count: integer; begin for i: =1 to 10 do begin   a[i]: =1+random(10);   write(a[i],' '); end; count: =0; for i: =1 to 10 do begin   if a[i]=1 then     count: =count+1; end; writeln('кол-во элементов равных единице=', count); end.

  информатика-наука о методах и процессах сбора, хранения, обработки, анализа и оценивания информации, обеспечивающих возможность её использования для принятия решений[1]. она включает дисциплины, относящиеся к обработке информации в вычислительных машинах и вычислительных сетях: как абстрактные, вроде анализа алгоритмов, так и конкретные, например разработка языков программирования и протоколов передачи данных.

-наука о материках,реках и т.д

фонетика-раздел языкознания, изучающий звуки речи и звуковое строение языка (слоги, звукосочетания, закономерности соединения звуков в речевую цепочку).

ботаника-наука о растениях, раздел биологии.

земледе́лие  — это наука и отрасль сельскохозяйственного производства, основанная на использовании земли с целью выращивания сельскохозяйственных культур.

животново́дство  — отрасль сельского хозяйства, занимающаяся разведением сельскохозяйственных животных для производства животноводческих продуктов[1].

тяжёлая промышленность включает горное дело, чёрную металлургию, стальную индустрию и производство.

лёгкая промышленность  — совокупность специализированных отраслей промышленности, производящих главным образом предметы массового потребления из различных видов сырья. лёгкая промышленность занимает одно из важных мест в производстве валового национального продукта и играет значительную роль в страны. лёгкая промышленность осуществляет как первичную обработку сырья, так и выпуск готовой продукции.

Цикл for                                                      

"цикл со счётчиком"

в начале присваивает заданной переменной (переменная-счётчик) начальное число. переменной-счётчиком может быть любая переменная типа integer, затем в зависимости от направления прибавляет (to) или убавляет (downto) счётчик на единицу. цикл начинает повторение пока счётчик будет меньше или равен второму числу. когда счётчик стал больше второго числа, цикл выполняет строки команд до конца, но уже не начинает повторять из снова.

в строках с цикла не должно быть команды, которая изменяет значение счётчика, иначе будет ошибка. счётчик нельзя изменять   внутри цикла пока он идёт.

запись

for переменнаясчётчик : = число направление второечисло do

begin

  строки с , которые должен повторять цикл;

end;

пример

программа, которая выводит числа от 5 до 10 и в конце пишет "конец"

program raf105;

var i: integer;

begin

for i: =5 to 10 do

begin

  writeln(i);

end;

writeln('конец');

end.

цикл while                                                  

"цикл с условием старта"

начинает повторение, только если соблюдено заданное условие

запись

while условие do

begin

  строки с , которые должен повторять цикл;

end;

пример

программа, которая просит ввести 1, если введено не 1, то просит ввести снова. когда введено 1, пишет "вы ввели 1. конец"

program raf105;

var a: integer;

begin

write('введите 1: ');

readln(a);

while a < > 1 do

begin

  write('вы ввели не 1. введите число снова: ');

  readln(a);

end;

writeln('вы ввели 1. конец');

end.

цикл repeat                                                

"цикл с условием завершения"

похож на цикл while, только заканчивает повторение, если соблюдено условие. обычно используется если цикл нужно повторить хотя бы 1 раз.

запись

repeat

  строки с , которые должен повторять цикл;

until условие;

пример

программа, которая запрашивает пароль, если введено 123, то выводит "конец" если введено не 123, то выводит сообщение "введите пароль снова"

program raf105;

var a: integer;

begin

a: = 0;

repeat

  if a = 0

    then write('введите пароль: ')

    else write('введите пароль снова: ');

  readln(a);

  until a = 123;

  writeln('конец');

end.