Описать программные слова которые участвуют в этой программе. хелп program n_3; var a: array[1..10] of integer; m, i,s: integer; begin randomize; for i : = 1 to 10 do begin a[i] : = random(+10) + 1; if a[i] > m then m : = a[i]; end; for i : = 1 to 10 do begin if a[i]=m then s: =s+1; end; writeln(s); end.
Задан массив "а" от 1 до 10
Объявлены целочисленные параметры m , i , s
В программе задан цикл от 1 до 10 где заполняется массив случайными числами от 1 до 10
Далее производится проверка условий внутри цикла, что если массив по i больше m, то m присваивается значение этого массив по i.
Цикл заканчивается
Идёт следом другой цикл от 1 до 10 где внутри цикла производится проверка повторений максимального значения m и производится подсчёт этих значений в параметре s
Выводится s