Help!, Проверьте на ошибку Опции

[LoveInLife]

Плизз..кому не сложно проверьте на ошибку......не могу понять......у меня окно...дергается когда выполняется программа, и не могу понять как округлить....выходное число.......
Задача: Вычислить сумму элементов массива вещественных чисел, следующих за его наименьшим элементом.

[Артемий]

Может так?

uses crt;
const R=10;
Type Tind=1..R;
     Tmas = array [Tind] of Real;
var k, i, x, p:Tind;
    S, min: real;
    A:Tmas;
    f: boolean;
begin {$r+}
    ClrScr;
     Write('‚ўҐ¤ЁвҐ зЁб«® н«Ґ¬Ґ­в®ў ­Ґ Ў®«миҐ ',R,': ');
     readln(p);
     writeln('‚ўҐ¤ЁвҐ ',p,'  楫ле зЁбҐ« зҐаҐ§ Їа®ЎҐ«.');
     for i:=1 to p
     Do Read(A[i]);Readln;
     min:=A[1];
     k:= 1;
     for i:=2 to p
     Do begin if A[i]<min
	then begin
             min:=A[i];
	     k:= i+1;
	     end;
	     end;
     S:= 0;
     if (i<>1) then begin
     for i:= k-1 to p do
     S:= S+A[i];
     end else begin
      for i:= 1 to p
     do  S:= S+A[i];
     end;
     writeln('S = ', round(s));
     Readln;
end.

Сообщение отредактировано: Артемий2 - 17.03.2007 20:29