Программирование операций обработки одномерных массивов

[Дима82]

С клавиатуры вводитя произвольный одномерный массив типа real (не более 10 элементов), после чего делается его контрольный вывод. Найти среднее арифметическое отрицательных элементов массива и разделить на него все элементы массива.

Program kz4;
Uses crt;
Var K:array[1..10] of real;
S:real;
J,M:integer;
Begin
Clrscr;
S:=0;
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(m);
Begin
Write('K[',J,']=');
Readln(K[J]);
End;
Writeln('Kontrolnyi Byvod matricy: ');
Begin
Write (K[J]:4:2,'':3);
Writeln;
End;
begin
if (K[J]<0) and (K[J] mod 2<>0) then
S:=S+K[J];
end;
...

Вот тут что-то пытался сделать, не можете помочь что дальше сделать?

[Карась]

Это работает?

Uses crt;
Var K:array[1..10] of real;
S:real;
J,M:integer;
Begin
Clrscr;
S:=0;
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(m);

For j := 1 To m Do // пропущенна эта строка.
Begin
Write('K[',J,']=');
Readln(K[J]);
End;
Writeln('Kontrolnyi Byvod matricy: ');

For j := 1 To m Do // пропущенна эта строка.
Begin
Write (K[J]:4:2,'':3);
Writeln;
End;

For j := 1 To m Do // пропущенна эта строка.
begin
if (K[J]<0) and (K[J] mod 2<>0) then
S:=S+K[J];
end;

[Дима82]

Program kz4;
Uses crt;
Var K:array[1..10] of real;
S:real;
J,M,b,а:integer;
Begin
Clrscr;
S:=0;
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(M);
For J:=1to m do
Begin
Write('K[',J,']=');
Readln(K[J]);
End;
Writeln('Kontrolnyi Byvod matricy: ');
For J:=1 to m do
Begin
Write (K[J]:4:2,'':3);
Writeln;
End;
For J:=1 to m do
begin
if (K[J]<0) and (K[J] mod 2<>0) then
S:=S+K[J];
S:=0;
repeat
readln(a);
S:=s+a;
B:=b+1;
until b=J;
S:=S/K[J];
Writeln('Srednee=',s:4:2,');
readln
end.

Ошибка выходит. Что делать?

[Карась]

Составить отчёт об ошибке и запостить сюда.
Пункты отчёта:
0. Полное задание. Без изменений, как есть.
1. Полный исходный код. Помещённый в специальный тег CODE (кнопка #).
2. Название и полные текст ошибки.
3. Указать на какой строке появилась эта ошибка.
4. Дополнительные сведения на ваше усмотрение.

[Дима82]

0.С клавиатуры вводитя произвольный одномерный массив типа real (не более 10 элементов), после чего делается его контрольный вывод. Найти среднее арифметическое отрицательных элементов массива и разделить на него все элементы массива.

1.

Program kz4;
Uses crt;
Var K:array[1..10] of real;
S:real;
J,M,b,а:integer;
Begin
Clrscr;
S:=0;
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(M);
For J:=1to m do
Begin
Write('K[',J,']=');
Readln(K[J]);
End;
Writeln('Kontrolnyi Byvod matricy: ');
For J:=1 to m do
Begin
Write (K[J]:4:2,'':3);
Writeln;
End;
For J:=1 to m do
begin
if (K[J]<0) and (K[J] mod 2<>0) then
S:=S+K[J];
S:=0;
repeat
readln(a);
S:=s+a;
B:=b+1;
until b=J;
S:=S/K[J];
Writeln('Srednee=',s:4:2,');
readln
end.

2. Ошибка 41-типы операндов не соответствуют оператору

3. На строке:
if (K[J]<0) and (K[J] mod 2<>0) then

4....

[Карась]

Ошибки возникают на двух строчках:

if (K[J] < 0) and (K[J] mod 2 <> 0) then
Это часть компилятору не нравится. На самом деле ему ненравится то что (наверное) происходит работа с Real.
Вообще говоря для нахождения средн.ариф. это совершенно незачем.


Writeln('Srednee=' , s:4:2 ,' );
Это лишнее.

[Дима82]

А как это всё должно выглядить? Вроде всё получается, но не выходит сумма и деление.

[Карась]

Var K : Array [1..10] of Real;
      i, M, B : Integer;
      Sum : Real;

Begin
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(M);

For i := 1 To M do
  Begin
    Write('K[',i,']=');
    Readln(K[i]);
  End;

Writeln;
Writeln('Kontrolnyi Byvod matricy: ');

For i := 1 To M Do Write (K[i]:4:2, ' ');
Writeln;

Sum := 0; B := 0;
For i := 1 To M Do
  If K[i] < 0 Then
    Begin
      Sum := Sum + K[i];
      B := B + 1;
    End;

Writeln;
if B <> 0 Then Writeln(Sum/B:2:2) Else Writeln('Error');

Readln;
End.

Что ещё за сумма?

[Дима82]

Среднее арифметическое найдено, а деление не выходит

разделить на него все элементы массива.

[Карась]

Тоесть надо брать каждый элемент массива, поделить его на сре.арифм..... и куда его записать? Просто выводить на экран?