Question

На паскале: в группе 15 человек. найти количество человек из группы, чей рост не ниже 165.

Answer 1

Ответ:

var

   i: Integer;

   l: Single;

   counter: Integer;

begin

 counter := 0;

 for i := 0 to 14 do begin

   Read(l);

   if l >= 165 then

       counter := counter + 1 ;

 end;

 Writeln(counter);

end.

Второй вариант

const

 cN: Integer = 15;

 cMinSuitableLength: Single = 165;

var

 arr: array [0..14] of Single;

 i, counter: Integer;

begin

 for i := 0 to Length(arr) - 1 do

   Read(arr[i]);

 counter := 0;

 for i := 0 to Length(arr) - 1 do

   if arr[i] >= cMinSuitableLength then

     counter := counter + 1;

 Writeln(counter);

end.

Объяснение:

Answer 2

Для решения этой задачи на языке Паскаль можно воспользоваться следующим кодом:

pascalCopy code
program PeopleCount;

var
  i, count: integer;
  height: array[1..15] of integer;

begin
  count := 0;
  
  writeln('Введите рост 15 человек:');
  
  for i := 1 to 15 do
  begin
    write('Рост человека ', i, ': ');
    readln(height[i]);
    
    if height[i] >= 165 then
      count := count + 1;
  end;
  
  writeln('Количество человек с ростом не ниже 165: ', count);
end.

Этот код запрашивает рост 15 человек и подсчитывает количество человек с ростом не ниже 165 среди них.