Написать эфыективную с точки зрения распределения памяти и скорости работы программу для решения задачи:
5-9 класс
|
Известен рост каждого из N- гвардейцев кардинала (представлен в линейной таблице) выведите на экран рост двух самых высоких . (все гвардейцы имеют разный рост)
Входные данные : N<50(количество гвардейцев), рост каждого из гвардейцев
Выходные данные: рост 2-x самых высоких
Входные данные
N=5
187
178
175
191
189
Выходные Данные:
191
189
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.
Можно на paschal нужна как можно быстрее нет друзей которые смогут сделать 30 баллов дам
Другие вопросы из категории
Напишите на C++
Читайте также
1 Даны стороны прямоугольника a , b. Найдите его площадь и периметр.
2 Дана длина ребра куба a. Найти объем и площадь его поверхности.
НУЖНО НА ЗАВТРА ПОМОГИТЕ!
выведите на экран их сумму. Если все они нечетные и A>B>C, то определите и выведите значения наибольшего и наименьшего из чисел. Иначе, выведите числа без изменения. Фрагмент программы: if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then begin S:=a+b+c; writeln('сумма равна ', S); end; if (a mod 2 <> 0) and (b mod 2 <> 0) and (c mod 2 <> 0) and (a>b) and (b>c) then begin writeln('наибольшее число ', A); writeln('наименьшее число ', C); end else writeln('a= ',a,' b= ', b, ' c= ',c);
можно написать для решения задачи?Ответ объясните.