Вмассиве из 10 целых чисел подсчитать сумму элементов стоящих левее максимального

252

383

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

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

ksysharaz

Информатика

4,7(21 оценок)

Var a: array [1..10] of integer; i,n,max: integer; begin randomize; for i: =1 to 10 do a[i]: =random(50); for i: =1 to 10 do write(a[i],' '); max: =a[1]; for i: =1 to 10 do if a[i]> max then begin max: =a[i]; n: =i; end; max: =0; for i: =1 to n-1 do max: =max+a[i]; writeln; writeln(max); end. забудьте сказать