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

CLS

INPUT "N = "; N : DIM A(N)

FOR i = 1 TO N ' Ввод массива А

PRINT "A("; i; ") = ";

INPUT A(i)

NEXT i

Amax = A(1) : k = 1 ' Поиск максимального элемента

FOR i = 2 TO N

IF A(i) > Amax THEN Amax = A(i) : k=i

NEXT i

PRINT "Наибольший элемент" ; k ; "-й"

PRINT "Его значение" ; Amax

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]

кц

Все

Кон

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

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 - количество зачисленных}

BEGIN ClrScr;

Write('В КОМАНДУ ЗАЧИСЛЯЮТСЯ УЧЕНИКИ, ');

WriteLn('РОСТ КОТОРЫХ ПРЕВЫШАЕТ 170 СМ.'); WriteLn;

Write('Сколько всего учеников ? ');

ReadLn(NPupil);

WriteLn('Введите фамилии и рост учеников :');

For i := 1 to NPupil do

begin Write(i, '. Фамилия - '); ReadLn(SurName[i]);

Write(' Рост - '); ReadLn(Height[i]);

end; WriteLn;

K:=0; { Составление списка команды }

For i := 1 to NPupil do

If Height[i]>170 then

begin K:=K+1; Cand[K] := SurName[i] end;

If K=0 then WriteLn('В КЛАССЕ НЕТ КАНДИДАТОВ В КОМАНДУ.')

Else

begin WriteLn('КАНДИДАТЫ В БАСКЕТБОЛЬНУЮ КОМАНДУ :');

For i := 1 to K do WriteLn( i, '. ' , Cand[i]);

end;

ReadLn

END.

CLS : PRINT "В КОМАНДУ ЗАЧИСЛЯЮТСЯ УЧЕНИКИ, ";

PRINT "РОСТ КОТОРЫХ ПРЕВЫШАЕТ 170 СМ." : PRINT

INPUT "Сколько всего учеников ? " , NPupil

DIM SurName$(NPupil), Height(NPupil), Cand$(NPupil)

PRINT "Введите фамилии и рост учеников :"

FOR i = 1 TO NPupil

INPUT "Фамилия - " , SurName$(i)

INPUT "Рост - " , Height(i)