В группе учится n учащихся. Определить самого высокого ученика. Вывести его рост и порядковый номер по списку.

Question

Информатика

Адель

18 декабря, 20:43

В группе учится n учащихся. Определить самого высокого ученика. Вывести его рост и порядковый номер по списку.

+4

Ответы (1)

Знаете ответ?

Эдик · Answer 1

Program rost;

uses crt;

const n=20;

Var nomer, rost_uch, i:integer;

a:array[1 ... n] of integer;

Begin

For i:=1 to n do

Begin

Write (' Рост ', i,'-ого ученика = ') ;

Readln (a[i]) ;

End;

nomer:=1;

rost_uch:=a[1];

For i:=2 to n do

If rost_uch
Begin

nomer:=i;

rost_uch:=a[i];

End;

Writeln ('Наибольший рост ', rost_uch,' см, у ученика с порядковым номером ', nomer) ;

End.

//Если нужны комментарии - пишите в личку