1)
var
i,c:integer; //Объявляем переменные
mas: array [1..20] of integer; //Объявляем массив
begin
c:=0; //Обнуляем переменную c
writeln('20 случайных чисел:'); //выводим на экран сообщение
randomize; //запускам рандом
for i:=1 to 20 do begin //запускаем цикл для массива от 1го до 20го элемента по очереди
mas[i]:=random(5,20); //генерируем число от 5 до 20
if mas[i] mod 2 = 0 then begin //запускам проверку, на четность числа. Если оно делится без остатка на 2
c:=c+1; //то к переменной c прибавляем единицу (значит оно четное
end;
write(mas[i], ' '); //Выводим наш массив
end;
writeln(); //пробел между строк
writeln('Количество четных элементов = ', c); //выводим количество четных элементов
end.
2)
var
i:integer; //Объявляем переменные
s:real; //Объявляем переменные
mas: array [1..10] of real; //Объявляем массив
begin
writeln('Введите 10 вещественных чисел'); //выводим на экран сообщение
for i:=1 to 10 do begin //запускаем цикл заполнения массива
read(mas[i]); //вводим число с клавиатуры
if mas[i] < 1 then //проверяем меньше ли единицы введенное число
s:=s+mas[i]; //если меньше,то прибавляем его в сумму (считаем сумму всех чисел, меньше 1, чтобы найти среднее арифметическое)
end;
s:=s/10; //Делим сумму на количество чисел
writeln ('Среднее арифметическое = ',s);
end.
n = int(input()) # присваиваем n - кол-во чисел
z = 0 # z - сумма всех чисел (изначально она = 0)
a = [] # a - массив состоящий из n чисел
for i in range(n): # делаем цикл для заполнения a
a.append(int(input())) # заполняем a
z = z+a[i] # так же считаем сумму всех чисел из a
x = z / len(a) # x - ср.ар. n чисел
l =abs(a[0]-x) # создаем n для того чтобы найти самое близкое к x число
m = 1 # создаем m для того чтобы найти номер самого близкого числа
for i in range(1,len(a)): # делаем цикл для нахождения m и n
if abs(a[i]-x)<l: # если число ближе к x чем число под номером n
l = abs(a[i]-x) # то присваиваем l - это число
m = i + 1 # а m - номер этого числа
print(m) # выводим номер числа
Объяснение:
