Uses Crt;

Type Mas = Array [1..20] of Real;

Var A: Mas;

i, N: Integer;

k: Integer;

Amax: Real;

BEGIN

СlrScr;

Write('Введите N = ');

ReadLn(N);

For i:= 1 to N do {Ввод значений элементов массива А}

Begin

Write('A [ ', i, ' ] = '); ReadLn(A[i])

End;

Amax:= A[1]; k:=1; {Поиск максимального элемента}

For i:= 2 to N do

If A[i] > Amax then

Begin

Amax:= A[i]; k:= i

End;

WriteLn; WriteLn('Наибольший элемент', k, '-й');

WriteLn('Его значение ', Amax: 5: 1); ReadLn

END.

 

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

Система тестов

Номер теста	Проверяемый случай	Число учеников	Фамилии	Рост	Результаты
	Есть кандидаты		Кулов Чехин Уваров		Кулов Уваров
	Нет кандидатов		Ершов Иванов		Нет кандидатов

Демонстрация

Начало формы

Конец формы

Школьный АЯ

алг Баскетбол (арг цел N, арг лит таб Фам[1:N], арг вещ

таб Рост[1:N], рез лит таб Канд [1:N])

нач цел i, k

k:=0

нц для i от 1 до N | запись фамилий кандидатов в таблицу Канд

если Рост[i]>170

то k:=k+1; Канд [k]:= Фам [i]

Все

Кц

если k=0

то вывод "В КЛАССЕ НЕТ КАНДИДАТОВ В КОМАНДУ."

иначе нц для i от 1 до k

вывод Канд [i]

Кц

Все

Кон

Исполнение алгоритма

 

N теста	i	Рост[i] > 170	K	Кондидаты в команду
		+ - +		Кулов Уваров
		- -		-

TurboPascal

Program BascetBall;

Uses Crt;

Var

SurName: Array [1..30] of String; { фамилии учеников }

Height: Array [1..30] of Real; { рост учеников }

Cand: Array [1..30] of String; { фамилии кандидатов }

NPupil, i, K: Integer; { NPupil - число учеников,

K - количество зачисленных}