Дан числовой массив А(n).Найти сумму его элементов, расположенных между максимальным и минимальным членами(включая оба эти числа).На делфи,приложение.
Дан числовой массив А(n).Найти сумму его элементов, расположенных между максимальным и минимальным членами(включая оба эти числа).На делфи,приложение.
Гость
Ответ(ы) на вопрос:
Гостьдобавь модуль Math, создай на форме Label и после implementation {$R *.dfm} вставь
procedure TForm1.FormCreate(Sender: TObject);
const n=10;
var a:array[1..n] of integer;
i,mi,ma,s:integer;
begin
randomize;
s:=0;
ma:=1;
mi:=1;
for i:=1 to n do begin
a[i]:=random(20)-10;
if a[i]>a[ma] then ma:=i
else if a[i]
Не нашли ответ?
Похожие вопросы