20.2 Короткий алгоритм на языке программирования

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – минимальное число, оканчивающееся на 4.

Пример работы программы:

Демонстрационный вариант ОГЭ 2017 г.  – задание №20.2

var n,i,a,min: integer;
begin
	readln(n);
	min := 30001;
	for i := 1 to n do
	begin
		readln(a);
		if (a mod 10 = 4) and (a < min) then 
			min := a;
	end;
	writeln(min)
end.

#include <iostream>
using namespace std;
int main(){
	int n,i,a,min;
	cin>>n;
	min = 30001;
	for(i=1;i<=n;i++){
		cin>>a;
		if(a%10==4 && a<min)
			min = a;
	}
	cout<<min;
}

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, оканчивающееся на 3.
Пример работы программы:

var n,i,a,max: integer;
begin
  readln(n);
  max := -1;
  for i := 1 to n do begin
    readln(a);
    if (a mod 10 = 3) and (a > max)
      then max := a;
  end;
  writeln(max)
end.

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4 и не кратное 7. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 4, но не кратных 7.

Пример работы программы:

var n,i,a,k: integer; 
begin 
  readln(n); 
  k := 0; 
  for i := 1 to n do begin 
    readln(a); 
    if (a mod 4 = 0) and (a mod 7 <> 0) then 
       k:=k+1; 
  end; 
  writeln(k) 
end.

Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 8, или вывести «NO», если таких чисел нет. Значение выводить с точностью до десятых.
Пример работы программы:

var a, s, n: integer;
begin
  s:=0; n:=0;
  readln(a);
  while a<>0 do begin
    if (a mod 8 = 0) then begin
      s := s + a;
      n := n + 1;
    end;
    readln(a); 
  end;
  if n > 0 then 
       writeln(s/n :5:1)
  else writeln('NO');
end.

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Пример работы программы:

var a, s: integer;
begin
  s:= 0;
  readln(a);
  while a<>0 do begin
    if (a mod 6 = 0) and (a mod 10 = 4) then
      s := s + a;
    readln(a); 
  end;
  writeln(s)
end.