Question

Макрос, как записать правильно. В группе 25 студентов. Дан возраст каждого студента. Определить, сколько в группе студентов моложе 21 года.

Answer 1

Ответ:

program gg;

var a,b,c,i:integer;

begin

   for i := 1 to 25 do

       begin

         write('введите возраст: ');

         readln(a);

         if a < 21 then b:= b+1

         else c:= c +1;

         a:= 0;

       end;    

       writeln('Моложе 21: ',b);

       writeln('Старше 21: ',c);

end.