Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Asetkyzy
11.05.2022 20:39 •
Информатика
Написать программу которая формирует одномерный массив ( массив температур ) из n целых чисел и выводит количество отрицательных элементов ( дней в месяце ). pascal abc !
Показать ответ
Ответ:
Pawelikot
06.07.2020 12:00
Uses crt;
var T: array [1..12] of real;
i:integer;
begin
{Цикл ввода}
for i:=1 to 12 do
begin
Write('Температура [',i:2,'] = ');
readln(T[i]);
end;
writeln();
{Поиск отрицательных элементов}
Writeln('Отрицательные температуры');
for i:=1 to 12 do
begin
if T[i]<=0 then
Writeln(T[i]);
end;
Readln();
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
linagurova6545
28.01.2020 00:31
Написать функцию, подсчитывающую количество цифр целого числа. используя ее, определить, в каком из двух данных чисел больше цифр....
TennisDiyar
15.06.2022 08:46
2. Модель – это a. заменитель объекта, отличающийся только размером b. новый объект, который отражает все признаки предмета, процесса или явления c. новый объект,...
mira133
12.12.2021 19:21
Сколько килобайтов составит сообщение если оно состоит из 2 страниц на каждой странице 16 строк по 12 символов в строке в алфавите 16 символов...
Ilana27
12.12.2021 19:21
Пользователь работал с файлом c: \class\9b\pascal\task.pas. затем он поднялся на один уровень вверх, создал каталог homework, в нём создал ещё один каталог program...
andron92
12.12.2021 19:21
Каждая страница текстового документа, созданного с использованием 64-символьного алфавита, содержит 128 строки по 32 символа в каждой. информационный вес документа...
Goodsteve31
12.12.2021 19:21
Дано целое число n – количество элементов массива. вывести те цифры элементов массива, которые содержатся в каждом единичном разряде.(с...
Diana22855
25.01.2023 14:25
Сформируйте функцию Уолша W(8, 0). Закодируйте последовательность 011 (-1+1+1), используя метод прямого расширения спектра. Запишите ответ в виде последовательности...
Alinasia
19.03.2022 14:25
Произведите упорядочивания чисел по убыванию 11₂ ,101₁₀ , 21₈ , 12₁₆ выполните сложение двоичных чисел и произведите проверку результатов,переводя их в десятичную...
natalichexova
27.09.2022 17:31
Перевести ! great smoky mountains national park cover the area in two states ( north carolina and ( tennessee. it is the most visited national park in ( america....
муркот11
18.06.2021 10:26
1. проекции вектора г на оси хиү равны: r = -2 см, r = 0. найдитемодуль и направление вектора r.2. от станции а по направлению к станции в отправился товарный по-езд...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var T: array [1..12] of real;
i:integer;
begin
{Цикл ввода}
for i:=1 to 12 do
begin
Write('Температура [',i:2,'] = ');
readln(T[i]);
end;
writeln();
{Поиск отрицательных элементов}
Writeln('Отрицательные температуры');
for i:=1 to 12 do
begin
if T[i]<=0 then
Writeln(T[i]);
end;
Readln();
end.