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

Есть ответ
12.12.2022
359

Ответ


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


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
12.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.