Массивы

[Seryoga]

Здравствуйте участники форума.
Прошу помощи в решении следующей задачи:
Найти среднее значение элементов заданного массива М размером 5. Преобразовать исходный массив, вычитая из каждого элемента среднее значение.
Нужно представить описание блоков блок-схемы.
Начал в Паскале так:
for i:=1 to 5 do
sum:=sum+mas[i];
otvet:sum/(5-1);
Здесь найду среднее значение. А как вычесть? И описать в виде блок-схемы. Элементы блок-схемы, думаю, описать смогу.
Заранее большое спасибо.
Кстати, всех с праздником, с Днём Победы!!!

[-=<[Evklidd]>=-]

Сообщение от Seryoga

for i:=1 to 5 do
sum:=sum+mas[i];
otvet:sum/(5-1);

а почему вы среднее арифметическое ищете только по 4 элементам?!
otvet:= sum/5;
Вычитание организуем в цикле:

 for i:= 1 to 5 do
  mas[i]:= mas[i] - otvet;

Вот и все,а виде блок-схемы тут и описывать нечего: два цикла с параметрами и все.

[yourself]

Собственно, а почему цикл с 1 начинается??

[puporev]

А с чего он по-вашему должен начинаться, если это массив не динамический?

[Seryoga]

Ребята вы не спорьте, а помогите. Как правильно блок-схемку то нарисовать?

[puporev]

Ладно, раз спорить нельзя, то вот полное решение, поскольку без него блок-схему не понять, а без нее код. И собственно блок-схема.

uses crt;
const n=5;
var a:array[1..n]of real;
    sr:real;
    i:integer;
begin
clrscr;
writeln('Ishodny massiv:');
sr:=0;
for i:=1 to n do
   begin
     a[i]:=random(10)+random;
     write(a[i]:6:2);
     sr:=sr+a[i];
   end;
sr:=sr/n;
writeln;
writeln('sr=',sr:5:2);
writeln('Rezultat:');
for i:=1 to n do
   begin
     a[i]:=a[i]-sr;
     write(a[i]:6:2);
   end;
readln
end.

[Seryoga]

Большое спасибо puporev не стал спорить, а просто помог. Ещё раз спасибо. Удачи тебе и всего самого доброго хороший человек.

[Татьяна_Mystery]

Вычислить сумму и разность двух заданных одномерных массивов А и В размером 5. Результат напечатать в виде двух параллельных столбцов.
вычисли массивы мне удалось, а вот как записать в виде столбцов я не знаю, помогите пожалуйста!
вот листинг моей программы:

Program simple;
uses CRT;
const n=5;
var a,b,c,d:array[1..5]of real;
i:integer;
begin
writeln('ishodny massiv');
for i:=1 to n do
for i:=1 to n do
c[i]:=a[i]+b[i];
for i:=1 to n do
write(c[i],'');
end.
begin
for i:=1 to n do
for i:=1 to n do
for i:=1 to n do
d[i]:=a[i]-b[i];
for i:=1 to n do
writeln(d[i],'');
end;
readln
end.

[ОДИНОЧЕСТВО В СЕТИ]

writeln(d[i],'');

исправь на

writeln(d[i]:6:3,'':4,c[i]:6:3);

[Stilet]

Один автор одна тема.
Закрываю.