Решите плиз !!!!!!!!!!! В таблице 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
