• Написать программу которая формирует одномерный массив  ( массив температур ) из n целых чисел и выводит количество отрицательных элементов ( дней в месяце ).
    срочно

    Pascal ABC срочно!

Ответы 1

  • uses crt;var T: array [1..12] of real;i:integer;begin{Цикл ввода}for i:=1 to 12 dobeginWrite('Температура [',i:2,'] = ');readln(T[i]);end;writeln();{Поиск отрицательных элементов}Writeln('Отрицательные температуры');for i:=1 to 12 dobeginif T[i]<=0 thenWriteln(T[i]);end;Readln();end.
  • Добавить свой ответ

Войти через Google

или

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

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

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