Дано n и n чисел, вывести все предыдущие числа до максимального.

126

371

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

4,6(97 оценок)

program n64224785;

var n, i, imax: integer;

x, max: real;

begin

write('введите кол-во чисел: ');

readln(n);

for i : = 1 to n do

begin

write('введите ',i,'-е число: ');

readln(x);

if (i = 1) or (x > max) then

begin

max : = x;

imax : = i

end

end;

write('первое максимальное число ',max: 0: 2,' с номером ',imax);

readln

end.

4,5(25 оценок)

Var i,s: integer; begin s: =0; for i: =20 to 450 do if (i mod 4 = 0) then s: =s+i; writeln(s); end.

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.