Регистрация
Kirkorow
25.10.2020 00:35
Информатика
Есть ответ 👍

Дана последовательность из n чисел.определить сумму трех наибольших чисел

136
496
Посмотреть ответы 2

Ответы на вопрос:

ярослававас
ярослававас
4,5(22 оценок)
Begin n1: =a[1]; n2: =n1; n3: =n2; for i: =2 to n do if (a[i]> n1) then begin n3: =n2; n2: =n1; n1: =a[i] end; writeln(n1+n2+n3) end.
sveta465
sveta465
4,5(48 оценок)

(pascal.)

program ; var a,b,x1,x2,x3: real; beginwriteln('введите коэффициент a'); readln(a); writeln('введите коэффициен b'); readln(b);

x1: =0;

if (b> 0) and (a> 0) then writeln('корни ур-я равны ',x1)  elsex2: =sqrt(-b/a); x3: =-sqrt(-b/a); writeln('корни ур-я равны ',x1,x2,x3);

end.

Популярно: Информатика