Решение задач на нахождение максимального и минимального элементов массива.
методическая разработка по информатике и икт (9 класс) по теме

Примеры решения задач на нахождение

максимального и минимального значения

1. Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Составьте программу, которая подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.

Program basketbool;

const N = 30;

var A: array[1..N] of integer;

    i, x, y: integer;

    s: real;

begin

{формирование массива}

Write (‘введите’,N,’ элементов’);

for i:=1 to N do readln(A[i]);

X:=240;{х присваивается заведомо большое число}

for i:=1 to N do

if (A[i]180){первое условие – поиск минимума,  второе  - условие приёма в команду}

                         then x:=A[i];

Write (‘Наименьший игрок команды имеет рост ‘,x);

readln;

end.

2. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. С клавиатуры вводится целое число X. Составьте программу, которая находит и выводит наименьший номер элемента, равного X, или сообщение, что такого элемента нет. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

Program pogoda;

const N=30;

var a: array [1..N] of integer;

    i, j, x: integer;

begin

{формирование массива}

Write (‘введите ‘,N,’ элементов’);

  for i:=1 to N do readln(a[i]);

Write (‘введите x’);

readln(x);

for i:=1 to N do

if (a[i]=x) and (j=0){второе условие (j=0) означает,

что ранее не было найдено значение, равное х}

              then j:=I;

{если j=0, значит не найдено ни одного значения, равного х}

if j=0 then write(‘такого элемента нет’) else write (‘номер =’,j);

Readln;

end.

1. Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 0 до 100 – баллы, полученные на ЕГЭ. Составьте программу, которая подсчитывает и выводит номер  учащегося, сдавшего экзамен (получивших оценку более 25 баллов) и получившего наименьшее количество баллов. Если таких учащихся несколько – вывести номера всех учеников с наименьшим баллом. Гарантируется, что хотя бы один ученик в классе успешно сдал экзамен.

const N = 30;

var A: array[1..N] of integer;

    i, x, y: integer;

    s: real;

begin

  for i:=1 to N do readln(A[i]);

. . . . .

end.

2. Дан целочисленный массив из 31 элемента, в котором записаны значения температуры воздуха в марте. Элементы массива могут принимать значения от (–20)  до 20. Составьте программу, которая подсчитывает и выводит наименьшую температуру по всем дням, когда была оттепель (температура поднималась выше нуля). Гарантируется, что хотя бы один день в марте была оттепель. Исходные данные объявлены так, как показано ниже.

const N = 31;

var A: array[1..N] of integer;

    i, x, y: integer;

    s: real;

begin

  for i:=1 to N do readln(A[i]);

  ...

end.

3. Дан целочисленный массив из 7 элементов, в котором записаны значения температуры воздуха за неделю. Элементы массива могут принимать значения от (–10)  до 0. Составьте программу, которая подсчитывает и выводит номер дня недели, когда температура была максимальной. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.

const N = 31;

var A: array[1..N] of integer;

    i, x: integer;

    begin

  for i:=1 to N do readln(A[i]);

  ...

end.

4. Дан целочисленный массив из 10 элементов. Элементы массива – размеры пар обуви в боулинге.  С клавиатуры вводится целое число X – размер обуви игрока. Составьте программу, которая находит и выводит первый по счёту порядковый номер пары обуви подходящего размера. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.

const N = 10;

var В: array[1..N] of integer;

    k, i, x: integer;

    begin

Write(‘введите размер обуви игрока’);readln(x);  

for i:=1 to N do readln(В[i]);

  ...

end.