Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > одномерные массивы

Автор: syoksana 26.9.2008, 21:21

Привет! решала задачки, что-то не получается, где ошибка?
Массив А из 20 элементов. Заменить отрицательные элементы на среднее арифметическое элементов массив.
Результат вывести на печать.

Код


Program qqq;
const n=5;
var a:array[1..n]of real;
 sum: real; k,i:integer;
begin
writeln ('vv massivi a');
for i:=1 to n do readln (a[i]);
sum:=0; k:=0;
for i:=1 to n do
    begin sum:=sum+a[i];
          k:=k+1;
    end;
for i:=1 to n do
if a[i]<0 then a[i]:=sum/k;
for i:=1 to n do writeln(a[i]); {else writeln('otricstelnix net') ;  }

end.

Автор: ne0n 26.9.2008, 22:18

все нормально, просто в конец добавь Readln; и увидешь результат)

Автор: syoksana 27.9.2008, 01:41

Цитата(ne0n @ 26.9.2008, 22:18)

все нормально, просто в конец добавь Readln; и увидешь результат)

добавила, всё равно ничего не изменилось, вот возьмём пример, массив из пяти элементов
-2
1
0
0
0
а резуьтат не верный выводит
-2
1
0
0
0
где ошибка? и как вывести что нет отрицательных элементов?

Код


Program qqq;
const n=5;
var a:array[1..n]of real;
 sum: real; k,i:integer;
begin
writeln ('vv massivi a');
for i:=1 to n do readln (a[i]);
sum:=0; k:=0;
for i:=1 to n do
    begin sum:=sum+a[i];
          k:=k+1;
    end;
for i:=1 to n do
if a[i]<0 then a[i]:=sum/k;
for i:=1 to n do writeln(a[i]); {else writeln('otricstelnix net') ;  }
readln;
end.

Автор: ne0n 27.9.2008, 02:02

Цитата(syoksana @ 27.9.2008, 01:41

)

а резуьтат не верный выводит

все он правильно выводит..смотри внимательней)

Код



-2.00000000000000E-0001
 1.00000000000000E+0000
 0.00000000000000E+0000
 0.00000000000000E+0000
 0.00000000000000E+0000

-2.00000000000000E-0001 это значит -0.2

(-2+1)/5 = -0.2 smile

если хочешь чтоб выводилось в более привычном виде то поступи так:

Код


for i:=1 to n do writeln(a[i]:4:4);

это значит выводить 4 знака перед запятой и 4 после. если у тебя среднеарифметическое и сами элементы не будут привышать 9999 то можно так и оставить)

Цитата(syoksana @ 27.9.2008, 01:41

)

и как вывести что нет отрицательных элементов?

ну добавь еще какуюнито переменную дополнительную j:

Код


if a[i]<0 then 
 begin
    j:=j+1;
    a[i]:=sum/k;
 end;

if j=0 then writeln('otricstelnix net') ;

Автор: syoksana 27.9.2008, 14:54

Цитата(ne0n @ 27.9.2008, 02:02)

все он правильно выводит..смотри внимательней)

Код


-2.00000000000000E-0001

-2.00000000000000E-0001 это значит -0.2

(-2+1)/5 = -0.2 smile

ну добавь еще какуюнито переменную дополнительную j:

Код


if a[i]<0 then 
 begin
    j:=j+1;
    a[i]:=sum/k;
 end;

if j=0 then writeln('otricstelnix net') ;

Поняла, это что-то я подзабыла.
Спасибо тебе, что помог! smile