В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Scelet911
Scelet911
10.05.2023 20:59 •  Информатика

1) дан целочисленный массив из 30 элементов. элементы могут принимать значения от 160 до 200 – рост учащихся выпускного класса. в баскетбольную команду берут тех, чей рост не менее 180 см. опишите на языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. гарантируется, что хотя бы один ученик играет в баскетбольной команде. исходные данные объявлены так, как показано ниже. использовать другие переменные запрещается. паскаль const n = 30; var a: array[1..n] of integer; i, x, y: integer; s: real; begin for i: =1 to n do readln(a[i]); end. объявляется массив a из 30 элементов. объявляются целочисленные переменные i, x и y, а также вещественная переменная s. в цикле от 1 до 30 заполняются все элементы массива a с 1-ого по 30-ый. 2) дан целочисленный массив из 31 элемента, в котором записаны значения температуры воздуха в марте. элементы массива могут принимать значения от (–20) до 20. опишите на языке или на одном из языков программирования алгоритм, который подсчитывает и выводит среднюю температуру по всем дням, когда была оттепель (температура поднималась выше нуля). гарантируется, что хотя бы один день в марте была оттепель. исходные данные объявлены так, как показано ниже. использовать другие переменные запрещается. паскаль естественный язык const n = 31; var a: array[1..n] of integer; i, x, y: integer; s: real; begin for i: =1 to n do readln(a[i]); end. объявляется массив a из 31 элемента. объявляются целочисленные переменные i, x и y, а также вещественная переменная s. в цикле от 1 до 31 заполняются все элементы массива a с 1-ого по 31-ый. ) решение в виде языка паскаль(желательно под abc)

Показать ответ
Ответ:
kayot1
kayot1
01.10.2020 12:32
Uses crt;
const N = 30;
var A: array[1..N] of integer;
    i, x, y:
integer;
    s: real;
begin
  for i:=1 to
N do readln(A[i]);
writeln;
x:=201;
for i:=1 to N do
if (a[i]<x) and (a[i]>179) then begin x:=a[i]; y:=i; end;
writeln(a[y]);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота