Question

в массиве хранится информация о возрасте 20 учащихся класса ( случайные числа от 14 до 16). Составьте программу, находящуюся количество учащихся, которым исполнилось 16 лет

В ПАСКАЛЕ !!!!!!​

Answer 1

program restless;

var

ages : array[1..20] of integer;

i, counter : integer;

begin

randomize;

counter := 0;

writeln('Массив с возрастами учащихся: ');

for i := 1 to 20 do

   begin

   ages[i] := random(3) + 14;

   write(ages[i], ' ');

   if ages[i] >= 16 then

       counter := counter + 1;

   end;

writeln;

writeln('Количество учащихся, которым исполнилось 16: ', counter);

end.