Задать вопрос

Pascal abc составить программу через array и for Подсчитайте количество морозных дней (когда температура ниже - 20 град.).

+4
Ответы (1)
  1. 3 июня, 13:25
    0
    program zz1;

    const n = 30; / / задаем количество элементов в массиве

    var i, min, k, s:integer; / / задаем переменные целого типа

    m:array [1 ... n] of integer;

    begin

    for i:=1 to n do / / записываем в массив числа случайным образом

    m[i]:=random (11) - 25;

    for i:=1 to n do / / выводим массив на экран

    write (m[i],' ');

    writeln; / / переходим на новую строку для вывода ответа

    for i:=1 to n do

    if m[i] < - 20 then k:=k + 1;

    writeln (' Количество морозных дней с температурой ниже - 20 = ', k); / / выводим ответ

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Pascal abc составить программу через array и for Подсчитайте количество морозных дней (когда температура ниже - 20 град.). ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Какие из приведенных описаний массивов являются правильными? 1) Var A: array [1 ... 20] of real; 2) Type Mas=array ['A' ... 'D']; Var A:Mas; 3) Type Город = (Киев, Москва, Сочи, Адлер); Var A:array[Город] of real; 4) Var MM:array [false ...
Ответы (1)
2. Сколько элементов в каждом из следующих массивов: • var mb: array [2 ... 20] of integer; • type myarray1 = array [0 ... 8] of integer; myarray2 = array [-5 ... 5] of integer; var aa: myarray1; bb: myarray2;
Ответы (1)
Допишите программу: - поменяйте местами первый и последний столбики; Вот программа: Program JHK; const n=5; var ns, a:real; j, p, i, pr, nm:integer; d:array[1 ... n, 1 ... n]of real; m:array[1 ...
Ответы (1)
Заполнить массив случаными числами из промежутка 1-100 и определить их в массиве: количество двузначных чисел кратных 3 (Pascal) Я написал программу, но она не работает, в чем может быть проблема? program dz2; const n=10; var a:array[1 ...
Ответы (1)
Дан одномерный массив из 10 элементов. Элементы массива лежат в диапазоне от - 20 до 20 и обозначают температуру первой декады (10 дней) марта. Определите номера дней, когда температура опускалась ниже - 10.
Ответы (1)