В группе 24 человека в возрасте от 18 до 22 лет. Найдите количество учеников, которым 19 лет (Напишите программу на языке Паскаль)

Question

Информатика

Фетиния

16 октября, 15:42

В группе 24 человека в возрасте от 18 до 22 лет. Найдите количество учеников, которым 19 лет (Напишите программу на языке Паскаль)

+3

Ответы (1)

Знаете ответ на вопрос?

Силуян · Answer 1

Var

A:array[1 ... 24] of integer;

i, k:integer;

Begin

For i: = 1 to 24 do

Begin

A[i]:=random (5) + 18;

Write (A[i],' ') ;

if A[i]=19 then k:=k+1;

End;

WriteLn;

WriteLn ('Кол-во 19-летних = ', k) ;

End.