Question

РЕБЯТ, ОЧЕНЬ СРОЧНО НАДО ПОМОГИТЕ ПОЖАЛУЙСТА массив содержит фамилии 12 человек. заполните данные о росте этих человек (165-190). Паскаль

Answer 1

Uses crt;
type sInfo = record     
surname:string;     
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin       
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;       
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;       
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;               
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;               
// И так далее по примеру выше.       
// Вывод вот так:       
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.

Answer 2

Конечно, я могу помочь вам создать программу на языке программирования Pascal, чтобы заполнить данные о росте для массива из 12 человек. Вот пример кода на Pascal:

program FillHeightArray;

var
  surnames: array[1..12] of string; // массив фамилий
  heights: array[1..12] of integer; // массив роста
  i: integer;

begin
  // Ввод фамилий
  writeln('Введите фамилии 12 человек:');
  for i := 1 to 12 do
  begin
    write('Человек ', i, ': ');
    readln(surnames[i]);
  end;

// Заполнение данных о росте
  writeln('Введите рост каждого человека (в диапазоне 165-190):');
  for i := 1 to 12 do
  begin
    repeat
      write('Рост для ', surnames[i], ': ');
      readln(heights[i]);
      // Проверка, чтобы рост был в заданном диапазоне
      if (heights[i] < 165) or (heights[i] > 190) then
        writeln('Рост должен быть в диапазоне 165-190. Повторите ввод.');
    until (heights[i] >= 165) and (heights[i] <= 190);
  end;

// Вывод данных о росте
  writeln('Данные о росте:');
  for i := 1 to 12 do
    writeln(surnames[i], ': ', heights[i]);

end.

Этот код позволяет вам ввести фамилии 12 человек и их рост в заданном диапазоне (165-190). Результаты выводятся после ввода данных. Помните, что код написан на языке Pascal, и вам может понадобиться компилятор Pascal для выполнения этого кода.