ОГЭ по информатике. Задачи на паскаль. Нахождение МАКСИМАЛЬНОГО И МИНИМАЛЬНОГО элемента.

 

Задача 1

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают  30 000.

Программа должна вывести одно число – максимальное число.

 

Решение:

Считаем сначала максимальным числом самое маленькое из возможных, т.е. ноль. Потом, перебираем все числа – если встретилось число большее, чем максимальное в данный момент, то оно и становится максимальным.

 

Var a, i, max, n: integer;

Begin

Read(n);

max:=0;

For i:=1 to n do

Begin

   Read(a);

If a>max then max:=a;

End;

Writeln(max);

End.

 

Нахождение минимального числа.

Задача 2

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают  30 000.

Программа должна вывести одно число – минимальное число.

 

Решение:

Считаем сначала минимальным числом самое большое из возможных, т.е. 30000. Потом, перебираем все числа – если встретилось число меньшее, чем минимальное в данный момент, то оно и становится минимальным.

 

Var a, i, min, n: integer;

Begin

Read(n);

min:=30000;

For i:=1 to n do

Begin

   Read(a);

If a < min then min:=a;

End;

Writeln(min);

End.

Нахождение максимального числа кратного 7.

Задача 3

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 7. В последовательности всегда имеется число, кратное 7. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают  30 000.

Программа должна вывести одно число – максимальное число, кратное 7.

 

Решение:

 

Считаем сначала максимальным числом самое маленькое из возможных, т.е. ноль. Потом, перебираем все числа – если встретилось число кратное 7 (остаток от деления на 7 равен нулю) и большее, чем максимальное в данный момент, то оно и становится максимальным.

 

Var a, i, max, n: integer;

Begin

Read(n);

max:=0;

For i:=1 to n do

Begin

   Read(a);

If (a mod 7 = 0) and (a>max)      then max:=a;

End;

Writeln(max);

End.

   Нахождение максимального числа, ОКАНЧИВАЮЩЕЕСЯ на 6.

Задача 4

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 6. В последовательности всегда имеется число, оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают  30 000.

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

 

Решение:

В начале, максимальное число считается самым маленьким из всех возможных. Т.е. нулю. Затем перебираем числа в массиве. Если нам встретилось число, ОКАНЧИВАЮЩЕЕСЯ на 6 (Т.е. остаток от деления на 10 равен 6) И это число больше, чем наше максимальное в данный момент, то у нас становится новое максимальное – это число.  

 

Var a, i, max, n: integer;

Begin

Read(n);

max:=0;

For i:=1 to n do

Begin

   Read(a);

If (a mod 10 = 6) and (a>max)      then max:=a;

End;

Writeln(max);

End.