Предмет: Информатика,
автор: SenyaMen
Задан рост ученика в классе.Величина роста выбирается случайным образом в интервале от 140 до 180 см.Определить порядковый номер ученика имеющего самый высокий рост.
СРОЧНО!ПОМОГИТЕ ПОЖАЛУЙСТА!
Ответы
Автор ответа:
0
Если учеников в классе 10.
program z1;
var
i,b,с:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(140,180);
b:=max(b,a[i]);
If a[i]=b then
c:=i;
end;
writeln('Номер самого высокого учеика в классе: ',с);
end.
program z1;
var
i,b,с:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(140,180);
b:=max(b,a[i]);
If a[i]=b then
c:=i;
end;
writeln('Номер самого высокого учеика в классе: ',с);
end.
Похожие вопросы
Предмет: Химия,
автор: bekaryskambarov1
Предмет: Информатика,
автор: zukhradyushimova
Предмет: География,
автор: kesubaevbahtiar
Предмет: История,
автор: 66666а
Предмет: Физика,
автор: fatima123456789