Question

В массиве хранится информация о росте 25 человек. Определить, на сколько просто самого высокого превышает рост самого низкого Решение на языке паскаль

Answer 1

var A:array[0..24] of integer;

   max, min, i, dif: integer;

begin

for i:= 0 to 24 do  

 readln(A[i]);

max := A[0]; min := A[0];

for i:= 15 to 24 do

 if(A[i] > max) then

   max := A[i]

 else  

   if (A[i] < min) then

   min := A[i];

 dif := max - min;

 write('Разница между max и min: ', dif)

end.

Answer 2

Приведу решение данной задачи на языке Pascal:

lessCopy code
program max_min_height;

const
  N = 25;

type
  HeightArray = array[1..N] of real;

var
  heights: HeightArray;
  i: integer;
  max_height, min_height, height_diff: real;

begin
  writeln('Введите рост 25 человек:');

  // Читаем ввод пользователя и находим максимальный и минимальный рост
  readln(heights[1]);
  max_height := heights[1];
  min_height := heights[1];
  for i := 2 to N do
  begin
    readln(heights[i]);
    if heights[i] > max_height then
      max_height := heights[i];
    if heights[i] < min_height then
      min_height := heights[i];
  end;

  // Находим разницу между максимальным и минимальным ростом
  height_diff := max_height - min_height;

  writeln('Самый высокий человек имеет рост ', max_height:0:2, ' см.');
  writeln('Самый низкий человек имеет рост ', min_height:0:2, ' см.');
  writeln('Разница между самым высоким и самым низким человеком составляет ', height_diff:0:2, ' см.');
  readln;
end.

В данном коде используется массив heights, который хранит информацию о росте 25 человек. Затем, с помощью цикла for, мы читаем рост каждого человека и находим максимальный и минимальный рост. После этого находим разницу между максимальным и минимальным ростом и выводим результат на экран.