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.

Answer 2

Конечно, вот пример программы на Pascal, которая находит количество учащихся, которым исполнилось 16 лет:

program CountStudents;

const
  NumStudents = 20;
  MinAge = 14;
  MaxAge = 16;

var
  Ages: array[1..NumStudents] of Integer;
  i, Count: Integer;

begin
  // Заполняем массив случайными значениями от 14 до 16 лет
  Randomize;
  for i := 1 to NumStudents do
    Ages[i] := Random(MaxAge - MinAge + 1) + MinAge;

// Выводим возраст каждого учащегося
  writeln('Возраст учащихся:');
  for i := 1 to NumStudents do
    write(Ages[i], ' ');

// Находим количество учащихся, которым исполнилось 16 лет
  Count := 0;
  for i := 1 to NumStudents do
  begin
    if Ages[i] = 16 then
      Inc(Count);
  end;

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

readln;
end.

Программа создает массив из 20 случайных чисел в диапазоне от 14 до 16 лет, затем выводит возраст каждого учащегося и подсчитывает количество тех, кому исполнилось 16 лет.