Решение задач на поиск информации в массиве

проще всего использовать массив, заполненный случайными числами в диапазоне, заданном

условием задачи.
Максимальное количество чисел так же задается при описании массива.
ПРИМЕЧАНИЕ: на ОГЭ следует отказываться от массивов, так как таковы условия решения экзаменационной задачи.
Необходимо знать операции mod – остаток от деления
(if a [i] mod 10 = 8) и div – деление нацело (x := x div 10).
Знать, как считается количество (b:= b +1) и сумма (s:= s +a [i]).
Уметь использовать сложные условия
(if (a mod 10 =2) and (a mod 6 =0))
или вложенные условные операторы.
Уметь сравнивать и находить в последовательности наибольшее или наименьшее число.
Естественно, не забываем и не путаем операторы вывода и вывода.

всех чисел, кратных 6 и оканчивающихся на 4. Количество чисел

не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.

i:=1 to n do
begin
a[i]:=random(300);
write(a[i],' ');
end;
writeln;writeln;
for i:= 1 to n do
if

(a[i] mod 6= 0) and (a [i] mod 10 = 4) then
begin
writeln ('число, удовлетворяющее условию-', a[i]); j:=j+a[i];
end;
writeln ('сумма=',j);
end.

число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые

числа не превышают 30 000.
Программа должна вывести одно число – минимальное число, оканчивающееся на 4.

do
begin
a[i]:=random(30000);
write(a[i],' ');
end;
writeln; writeln;
for i:= 1 to n do
if (a[i] mod

10= 4) and (a [i] < a[min]) then min:=i;
writeln ('=',a[min]);
end.

чисел, оканчивающихся на цифру 6.
Количество чисел не превышает 1000.

Введённые числа не превышают 30000. Программа должна вывести одно число — количество чисел последовательности, оканчивающихся на цифру 6.

i:=1 to n do
begin
a[i]:=random(300);
write(a[i],' ');
end;
writeln; writeln;
for i:= 1 to n

do
if (a[i] mod 2= 0) then
begin
kolvo:=kolvo+1;
sum:=sum+a[i];
end;
writeln ('=',sum/kolvo);
if sum/kolvo=0 then write ('NO!');
end.

арифметическое двухзначных чисел или сообщает, что таких чисел нет.
Количество чисел

не превышает 100. Введенные числа не превышают 300. Программа должна вывести среднее арифметическое двухзначных чисел или вывести NO, если таких чисел в последовательности нет.

do
begin
a[i]:=random(30000);
write(a[i],' ');
end;
writeln; writeln;
for i:= 1 to n do
if (a[i] mod

10= 6) then kolvo:=kolvo+1;
writeln ('=',kolvo);
end.

не превосходящим 30000, подсчитывает количество чётных натуральных чисел на отрезке [a, b]

(включая концы отрезка).
Программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 30000. Проверять входные данные на корректность не нужно.
Программа должна вывести одно число: количество чётных чисел на отрезке [a, b].

сумму чисел, оканчивающихся на 5.
Количество чисел не превышает 100.

Введённые числа по модулю не превышают 300.
Программа должна вывести одно число: сумму чисел, оканчивающихся на 5.

информатике прошлых лет
http://www.fipi.ru/oge-i-gve-9/demoversii-specifikacii-kodifikatory
Картинки: http://anatoliynikulininfo.ru, http://clipart-library.com