Question

Пожалуйста помогите написать программу по информатики для решения задачи: В массиве рост юношей задан отрицательным числом, рост девушек положительным, определите отдельно средний рост юношей и девушек и можно это сделать как нибудь примерно так? program xxx; var M,D,i,ran:integer; a:array [1..10] of integer; begin for i:=1 to 10 do ran:=100-random(200)+1; for i:=1 to 10 do if a[i]<0 then M:=M+a[i] else D:=D+a[i]; write (M,' '); write (D,' ') end.

Answer 1

//Не люблю "примерно так"
//PascalABC.NET 3.2 сборка 1318

Const
  n=10;

  Var
   m,fm:real;
  mc,fmc,i:integer;
val:array[1..n] of real;
begin
for i:=1 to n do
  begin
    readln(val[i]);
    if val[i]>0 then
       begin
        inc(fmc);
        fm+=val[i];
      end
     else
     if val[i]<0 then
      begin
        inc(mc);
        m+=abs(val[i]);
      end
      else
      begin
        writeln('Funny joke!(no)');
        exit;
      end;
 end;
writeln('Male average=',m/mc);
writeln('Female average=',fm/fmc);
end.

Answer 2

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

program CalculateAverageHeight;
var
  M, D, i: integer;
  a: array [1..10] of integer;
begin
  M := 0; // сумма роста юношей
  D := 0; // сумма роста девушек

// Заполнение массива случайными значениями роста
  for i := 1 to 10 do
  begin
    a[i] := Random(300) - 150; // генерация случайного числа от -150 до 149
  end;

// Вычисление суммы роста юношей и девушек
  for i := 1 to 10 do
  begin
    if a[i] < 0 then
      M := M + a[i]
    else
      D := D + a[i];
  end;

// Вычисление среднего роста юношей и девушек
  M := M div 10;
  D := D div 10;

// Вывод результатов
  writeln('Средний рост юношей: ', M);
  writeln('Средний рост девушек: ', D);
end.

В этой программе мы используем переменные `M` и `D` для хранения суммы роста юношей и девушек соответственно. Затем мы проходим по массиву `a` и добавляем рост юношей в `M`, а рост девушек в `D`. После этого мы делим значения `M` и `D` на 10, чтобы получить средний рост юношей и девушек. Наконец, мы выводим результаты на экран с помощью `writeln`.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.