Question

ИНФОРМАТИКА ПАСКАЛЬ массив предназначен для хранения значений весов двенадцати человек. с помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапазоне от 50 до 100 включитель. подсчитать сколько человек имеет вес от 50 кг до 80 кг​

Answer 1

Ответ:

program Ves;

var v:array [1..12] of integer;

i,k:integer;

begin

k:=0;

write('Массив: ');

for i:=1 to 12 do

begin

v[i]:=random(51)+50;

write(v[i]:3);

if (v[i] >= 50) and (v[i] <=80) then k:=k+1

end;

writeln;

writeln (k,' человек имеет вес от 50 кг до 80 кг')

end.

Answer 2

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

pascalCopy code
program CountWeights;

const
  SIZE = 12; // размер массива

var
  weights: array[1..SIZE] of integer; // объявление массива
  count: integer; // переменная для подсчета количества человек

procedure FillArray;
var
  i: integer;
begin
  Randomize; // инициализация генератора случайных чисел

  for i := 1 to SIZE do
    weights[i] := Random(51) + 50; // генерация случайного числа от 50 до 100

end;

procedure CountPeopleInRange;
var
  i: integer;
begin
  count := 0; // обнуляем счетчик

  for i := 1 to SIZE do
  begin
    if (weights[i] >= 50) and (weights[i] <= 80) then
      count := count + 1;
  end;

  writeln('Количество людей с весом от 50 кг до 80 кг: ', count);
end;

begin
  FillArray;
  CountPeopleInRange;
end.

Этот код создает программу, которая заполняет массив weights случайными значениями от 50 до 100 и подсчитывает количество людей с весом от 50 кг до 80 кг. Размер массива задан константой SIZE, равной 12.

Вы можете скопировать этот код в среду разработки Паскаля (например, Free Pascal) и выполнить программу, чтобы получить результат.