Question

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)

Answer 1

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.