Помощь - Поиск - Пользователи - Календарь
Полная версия: Help!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
LoveInLife
Плизз..кому не сложно проверьте на ошибку......не могу понять......у меня окно...дергается когда выполняется программа, и не могу понять как округлить....выходное число.......
Задача: Вычислить сумму элементов массива вещественных чисел, следующих за его наименьшим элементом.
Артемий
Может так? smile.gif
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.
мисс_граффити
только
     min:=A[1];
k:= 2;

и с округлением... до целых или просто указать количество знаков после запятой?

и вообще...
М
заголовок темы должен быть информативным!

LoveInLife
спасибо...ребята..........пожелания учту;)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.