Заметили ошибку ?
Выделите это место и нажмите Ctrl + Q

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


 

Задача 1

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

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

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

 

Решение:

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

 

Var a, i, max, n: integer;

Begin

Write('n<=1000 n=');

Read(n);

max:=0;

For i:=1 to n do

Begin

   Read(a);

If a>max then max:=a;

End;

Writeln('max=', max);

End.

 

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

Задача 2

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

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

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

 

Решение:

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

 

Var a, i, min, n: integer;

Begin

Write('n<=1000 n=');

Read(n);

min:=30000;

For i:=1 to n do

Begin

   Read(a);

If a<min then min:=a;

End;

Writeln('min=', min);

End.

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

Задача 3

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

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

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

 

Решение:

 

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

 

Var a, i, max, n: integer;

Begin

Write('n<=1000 n=');

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=', max);

End.

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

Задача 4

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

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

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

 

Решение:

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

 

Var a, i, max, n: integer;

Begin

Write('n<=1000 n=');

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=', max);

End.



13-09-2018 в 08:13:19





Похожая статья:

ОГЭ по информатике. Вторая часть. Задачи на паскале - другое окончание ввода последовательности

Сегодня разберём нестандартные задачи из задания 20.2 (вторая часть) О...

Категория: ОГЭ  Подкатегория: -
Дата: 15-01-2018 в 16:47:34 0



Оставить коментарий:



Напишите email, чтобы получать сообщения о новых комментариях (необязательно):


Задача против робота. Расположите картинки горизонтально:


Последние
видео:



Присылайте ваши задачи
Шейкер-сортировка (С#)


Подготовка к
ОГЭ


Подготовка к ОГЭ по информатике


Давайте
дружить!


Группа Вконтакте Code-Enjoy

Твиттер Александра Калужского

YouTube канал Code-Enjoy


Препод напал на тебя как вампир? Не бойся! Студланс защитит этот мир!