Question

Срочно, задача на одномерные массивы (Pascal ABC). Известен рост каждого из 22 учеников класса. Рост мальчиков условно задан отрицательными числами. Определить средний рост мальчиков и средний рост девочек.

Answer 1

Var
ar:array[1.22] of integer;
ds,ms,i,m,d:integer;
begin
for i:=1 to 22 do begin
readln(ar[i]);
if ar[i]<0 then
begin
 m:=m+1;
 ms:=ms+ar[i];
end
else
begin
ds:=ds+ar[i];
d:=d+1
end;
end;
ms:=ms div m;
ds:=ds div d;
writeln(ms,' ',ds);
end.

Answer 2

Для решения задачи на одномерные массивы в Pascal ABC, где известен рост каждого из 22 учеников класса, и рост мальчиков задан отрицательными числами, нужно выполнить следующие шаги:

1. Создать одномерный массив, содержащий рост каждого ученика класса. В данном случае, массив будет иметь размерность 22.

2. Разделить учеников на мальчиков и девочек, используя условие, что рост мальчиков задан отрицательными числами.

3. Вычислить средний рост мальчиков и средний рост девочек.

Вот пример кода на Pascal ABC, который решает данную задачу:

program AverageHeight;

var
  heights: array[1..22] of integer;
  boysCount, girlsCount: integer;
  boysSum, girlsSum: integer;
  boysAverage, girlsAverage: real;
  i: integer;

begin
  boysCount := 0;
  girlsCount := 0;
  boysSum := 0;
  girlsSum := 0;

// Ввод роста каждого ученика
  for i := 1 to 22 do
  begin
    write('Введите рост ученика ', i, ': ');
    readln(heights[i]);

// Проверка, является ли ученик мальчиком или девочкой
    if heights[i] < 0 then
    begin
      boysCount := boysCount + 1;
      boysSum := boysSum + heights[i];
    end
    else
    begin
      girlsCount := girlsCount + 1;
      girlsSum := girlsSum + heights[i];
    end;
  end;

// Вычисление среднего роста мальчиков и девочек
  boysAverage := boysSum / boysCount;
  girlsAverage := girlsSum / girlsCount;

writeln('Средний рост мальчиков: ', boysAverage:0:2);
  writeln('Средний рост девочек: ', girlsAverage:0:2);
end.

В этом коде мы используем массив `heights`, чтобы хранить рост каждого ученика. Затем мы проходим по массиву и проверяем, является ли рост отрицательным (мальчик) или положительным (девочка). Мы подсчитываем количество мальчиков и девочек, а также сумму роста каждой группы. Затем мы вычисляем средний рост, разделив сумму на количество учеников каждой группы.

Примечание: Пожалуйста, учтите, что код предоставлен в качестве примера и может потребовать некоторой модификации в зависимости от конкретных требований задачи или используемой среды разработки.

Источники: - - Информация о языке программирования Pascal ABC. - - Информация о среднем значении в математике.