Question

1.Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное двузначное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное двузначное число. Количество чисел не превышает 1000.Введённые числа не превышают 30000.Программа должна вывести одно число-минимальное чётное двузначное число последовательности. 2.Напишите программу которая в последовательности натуральных чисел определяет среднее арифметическое чисел последовательности, оканчивающихся на 3 или на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда число оканчивающееся на 3 или на 7. Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число - среднее арифметическое чисел последовательности, оканчивающихся на 3 или на 7. Ответ можно вывести с любым числом знаков после десятичной точки. 3.Напишите программу которая в последовательности натуральных чисел определяет количество не чётных чисел, не оканчивающихся на 1.Программа получаем на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введенные числа не превышают 30000.Программа должна вывести одно число-количество нечётных чисел последовательности, не оканчивающихся на 1. ТОЛЬКО В ПАСКАЛЕ

Answer 1

Ответ:

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.

Answer 2

Конечно, вот решение в Pascal для каждой из трех задач:

1. Определение минимального четного двузначного числа:

pascalCopy code
program MinEvenTwoDigit;

var
  n, num, minEven: integer;
  i: integer;

begin
  readln(n);
  minEven := 100; // Инициализируем переменную с максимально возможным значением

  for i := 1 to n do
  begin
    readln(num);
    if (num mod 2 = 0) and (num < minEven) and (num >= 10) and (num <= 99) then
      minEven := num;
  end;

  writeln(minEven);
end.

2. Определение среднего арифметического чисел, оканчивающихся на 3 или 7:

pascalCopy code
program AverageEnding37;

var
  n, numCount, sum: integer;
  num, i: integer;

begin
  readln(n);
  numCount := 0;
  sum := 0;

  for i := 1 to n do
  begin
    readln(num);
    if (num mod 10 = 3) or (num mod 10 = 7) then
    begin
      sum := sum + num;
      numCount := numCount + 1;
    end;
  end;

  writeln(sum / numCount : 0 : 2);
end.

3. Определение количества нечетных чисел, не оканчивающихся на 1:

pascalCopy code
program CountOddNotEnding1;

var
  n, count: integer;
  num, i: integer;

begin
  readln(n);
  count := 0;

  for i := 1 to n do
  begin
    readln(num);
    if (num mod 2 <> 0) and (num mod 10 <> 1) then
      count := count + 1;
  end;

  writeln(count);
end.

Пожалуйста, учтите, что эти программы написаны на языке Pascal, как вы указали, и предназначены для использования в среде программирования Pascal.