• Написать программу нахождения в вещественном массиве из 10 элементов, количества отрицательных и превышающих -30.

Ответы 1

  • //Pascalvar   a: array[1..10] of real;  i, count: integer;    begin  count := 0;    write('Исходный массив: ');    for i := 1 to 10 do  begin      {Генерация}    a[i] := random(200) + Random() - 100;        {Вывод}    write(a[i] : 0 : 5, ' ');        {Проверка}    if (a[i] > -30) and (a[i] < 0) then inc(count);      end;    writeln;  writeln('Количество отрицательных элементов, превышающих -30: ', count);end.
    • Автор:

      abelbrown
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years