Решите плиз !!!!!!!!!!!В таблице Dat хранятся данные о количестве воспитанников в

Решите плиз !!!!!!!!!!!
В таблице 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] lt; 25 then begin
m := m + 1
end;
writeln(m)
End.

Задать свой вопрос
1 ответ

Тут с помощью цикла считаем, сколько чисел меньше 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

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


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

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

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

Войти на сайт