1.Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное двузначное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное двузначное число. Количество чисел не превышает 1000.Введённые числа не превышают 30000.Программа должна вывести одно число-минимальное чётное двузначное число последовательности.
2.Напишите программу которая в последовательности натуральных чисел определяет среднее арифметическое чисел последовательности, оканчивающихся на 3 или на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда число оканчивающееся на 3 или на 7. Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число - среднее арифметическое чисел последовательности, оканчивающихся на 3 или на 7. Ответ можно вывести с любым числом знаков после десятичной точки.
3.Напишите программу которая в последовательности натуральных чисел определяет количество не чётных чисел, не оканчивающихся на 1.Программа получаем на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введенные числа не превышают 30000.Программа должна вывести одно число-количество нечётных чисел последовательности, не оканчивающихся на 1.
ТОЛЬКО В ПАСКАЛЕ
2.Напишите программу которая в последовательности натуральных чисел определяет среднее арифметическое чисел последовательности, оканчивающихся на 3 или на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда число оканчивающееся на 3 или на 7. Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число - среднее арифметическое чисел последовательности, оканчивающихся на 3 или на 7. Ответ можно вывести с любым числом знаков после десятичной точки.
3.Напишите программу которая в последовательности натуральных чисел определяет количество не чётных чисел, не оканчивающихся на 1.Программа получаем на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введенные числа не превышают 30000.Программа должна вывести одно число-количество нечётных чисел последовательности, не оканчивающихся на 1.
ТОЛЬКО В ПАСКАЛЕ
Answers & Comments
Ответ:
var
a,i,n,a1:integer;
begin
a1:=30000;
read(n);
for i:=1 to n do begin
read(a);
if (a<a1) and (a div 10 <10) and (a div 10 >1)and (a mod 2 = 0) then a1:=a;
end;
writeln(a1);
end.
var
b,x,c:real;
i,n,a:integer;
begin
x:=0;
b:=0;
read(n);
for i:=1 to n do begin
read(a);
if (a mod 7 = 0) or (a mod 3 = 0) then b:=b+a;
if (a mod 7 =0) or (a mod 3 = 0) then x:=x+1;
end;
c:=b/x;
writeln(c);
end.
var
a,b,x,i,n:integer;
begin
x:=0;
read(n);
for i:=1 to n do begin
read(a);
if (a mod 10 <>1) and (a mod 2 = 1) then x:=x+1;
end;
writeln(x);
end.