Написать эфыективную с точки зрения распределения памяти и скорости работы программу для решения : известен рост каждого из n- гвардейцев кардинала (представлен в линейной таблице) выведите на экран рост двух самых высоких . (все гвардейцы имеют разный рост) входные данные : n< 50(количество гвардейцев), рост каждого из гвардейцев выходные данные: рост 2-x самых высоких входные данные n=5 187 178 175 191 189 выходные данные: 191 189

LidaDay LidaDay    3   11.06.2019 00:00    1

Ответы
КамиллаОк КамиллаОк  09.07.2020 07:16
Const 
N=5; 
var 
a: array [1..N] of real; 
d, r: real; 
i, j, k: integer; 
begin 
for i:=1 to N do 
begin
readln(a[i]); 
if a[i]>d then
begin
r:=d;
d:=a[i];
end;
end;
writeln("самые высокие гвардейцы имеют рост ",r," и ", d);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика