Описать программные слова которые участвуют в этой программе.Пж хелп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 ответ

Задан массив "а" от 1 до 10

Объявлены целочисленные характеристики m , i , s

В программке задан цикл от 1 до 10 где заполняется массив случайными числами от 1 до 10

Далее делается проверка критерий снутри цикла, что если массив по i больше m, то m присваивается значение этого массив по i.

Цикл заканчивается

Идёт следом иной цикл от 1 до 10 где снутри цикла делается проверка повторений наибольшего значения m и делается подсчёт этих значений в параметре s

Выводится s


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт