
Решите плиз !!!!!!!!!!! В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] –
количество учеников в первом классе, Dat[2] – во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1..11] of integer; Begin Dat[1] := 20; Dat[2] := 25; Dat[3] := 19; Dat[4] := 25; Dat[5] := 26; Dat[6] := 22; Dat[7] := 24; Dat[8] := 28; Dat[9] := 26; Dat[10] := 21; Dat[11] := 27; m := 0; for k := 1 to 11 do if Dat[k] < 25 then begin m := m + 1 end; writeln(m) End.

Ответы на вопрос

Здесь с помощью цикла считаем, сколько чисел меньше 25.
Dat[1] := 20; // 1
Dat[2] := 25;
Dat[3] := 19; // 2
Dat[4] := 25;
Dat[5] := 26;
Dat[6] := 22; // 3
Dat[7] := 24; // 4
Dat[8] := 28;
Dat[9] := 26;
Dat[10] := 21; // 5
Dat[11] := 27;
Ответ: 5



Давайте разберем, что делает данная программа.
Перед нами предоставлен фрагмент кода на языке программирования Pascal. В данном коде определяется массив Dat
, содержащий данные о количестве учеников в различных классах. Переменная m
инициализируется нулем.
Затем с помощью цикла for
происходит перебор элементов массива Dat
, и если значение элемента меньше 25, то переменная m
увеличивается на 1.
Давайте выполним код в уме:
Dat[1]
равно 20, меньше 25 - увеличиваемm
на 1 (теперьm = 1
).Dat[2]
равно 25, не меньше 25 - ничего не делаем (остаетсяm = 1
).Dat[3]
равно 19, меньше 25 - увеличиваемm
на 1 (теперьm = 2
).Dat[4]
равно 25, не меньше 25 - ничего не делаем (остаетсяm = 2
).Dat[5]
равно 26, не меньше 25 - ничего не делаем (остаетсяm = 2
).Dat[6]
равно 22, меньше 25 - увеличиваемm
на 1 (теперьm = 3
).Dat[7]
равно 24, меньше 25 - увеличиваемm
на 1 (теперьm = 4
).Dat[8]
равно 28, не меньше 25 - ничего не делаем (остаетсяm = 4
).Dat[9]
равно 26, не меньше 25 - ничего не делаем (остаетсяm = 4
).Dat[10]
равно 21, меньше 25 - увеличиваемm
на 1 (теперьm = 5
).Dat[11]
равно 27, не меньше 25 - ничего не делаем (остаетсяm = 5
).
После завершения цикла, программа выводит значение переменной m
, которое равно 5. Таким образом, ответом будет число 5.


Похожие вопросы
Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili