Pascal задача
Помогите решить задачку. В массиве b1,b2 . . . b15 найти сумму элементов, стоящих правее минимального.
минимальное число нашел, а вот, как найти сумму чисел стоящих правее не догоняю. . . Var a:array[1..15] of integer; i,b:integer; begin Writeln('Vvedite 15 chisel'); for i:=1 to 15 do Readln(a[i]); b:=a[1]; for i:=2 to 15 do begin if a[i]<b then b:=a[i]; end; writeln(b); readln; end. |
ну очень нужно, помогите знающие.
|
Цитата:
Код:
Var |
Целый день голову ломал. СПС, выручил.
|
Часовой пояс GMT +4, время: 08:47. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.