Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Пасифая
24.02.2022, 06:26
Информатика

Дан одномерный массив из 10 элементов. Элементы массива лежат в диапазоне от -20 до 20

и обозначают температуру первой декады (10 дней) марта. Определите номера дней, когда температура опускалась ниже -10. Напишите программу, которая позволяет найти и вывести номера дней, когда температура опускалась ниже -10.
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Котдусия

program zz1;

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

var i:integer; // задаем переменную целого типа

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

begin

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

m[i]:=random(21)-15;

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

write(m[i],' ');

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

for i:=1 to n do // находим первый положительный элемент

if m[i] < -10 // проверяем, если число меньше -10, то выводим ответ

then writeln(i,' -го марта температура опустилась ниже -10 ');

end.