Описать программные слова которые участвуют в этой программе.Пж хелпprogram n_3;Vara:
Обрисовать программные слова которые участвуют в этой программе.Пж хелп
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] gt; 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
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.