Pascal. Массивы, процедуры.

[midletarket]

обрый вечер. Помогите пожалуйста. Составить подпрограмму для определения числа элементов одномерного массива, предшествующих его первому отрицательному элементу.
Используя данную подпрограмму, расчитать среднее арифметическое значение элементов того из двух заданных одномерных массивов C и T,
в ктором меньше элементов, предшествующих первому отрицательному. В случае равенства чисел таких элементов вывести на печать сообщение "Массивы эквивалентны". С = (2,75;6,01;0,007;1;0;53.1)
T = (7; 0,04;-5;6;0;81;0,0005;-125)
Задачу нужно с процедурой. Без break и без goto. Заранее спасибо... Если можно с пояснениями...

[__STDC__]

в массиве C вообще что ли отрицательных нету? А вы совсем не в теме? наработок никаких? ни строки кода?

[midletarket]

Нет, есть наработки... Сейчас...

[midletarket]

Type
X=array[1..20] of Real;{Максимальное число элементов массива}
var
i,Kol,nc,nd:Integer;
C,D: X;
p:Real;

Procedure M(c:X;Kol:Integer; var n:integer);
Var
m,Flag:integer;
Begin
N:=0; Flag:=0; m:=0;
For I:=1 to Kol do
begin
If c[i]>=0 then Inc(m)
Else
If (flag=0) Then
Begin
n:=m ;
Flag:=1;
End;
End;
End;

Begin
Writeln('Vvedite kolicestvo elementov massivov');
Readln(Kol);
For i:=1 to Kol do
Begin
Writeln('Vvedite ',i:2,' element massiva C');
Readln(C[i]);
End;
For i:=1 to Kol do
Begin
Writeln('Vvedite ',i:2,' element massiva D');
Readln(D[i]);
End;
M(c,kol,nc);
M(d,kol,nd);
p:=0;
If Nc<Nd then
Begin
For i:=1 to kol do
Begin
P:=P+C[i];
End;
P:=P/Kol;
Writeln('Srednee arifmeticeskoe massiva C = ',P:3:3);
End Else
If Nc>Nd then
Begin
For i:=1 to kol do
Begin
P:=P+D[i];
End;
P:=P/Kol;
Writeln('Srednee arifmeticeskoe massiva D = ',P:3:3);
End Else Writeln('Massivi ekvivalentny');
Readln;
End.

Да в массиве С отрицательных нет...

[__STDC__]

а массивы разной размерности что ли должны быть? Там у вас получается что в C должно быть 6 эл-тов, а в D 7... не?
Проблема, как я понимаю, в том, что считает среднее ар. от того массива, где вообще нет отрицательных... можно в таком случае ввести доп. логическую переменную и если отрицательных эл-тов не обнаружено - обнулять в конце значение счетчика

[midletarket]

А как это реализовать в коде?

[__STDC__]

ну смотрите.. заведите скажем логическую переменную w_o_neg, и задайте ей значение true.. дальше, когда в цикле проверяете эл-ты, если встречается отрицательный - переменной присваиваете false.. в конце подпрограммы делаете if и если переменная имеет значение true - обнуляете счетчик

[midletarket]

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

[__STDC__]

Честно говоря, я бы весь код переписал заново... Но что-то не хочется.. Я дополнил и исправил ваш, все изменения выделены красным.. Реализовал с точностью до наоборот тех слов, что говорил выше)) Так удобней..

Type
X=array[1..20] of Real;{Максимальное число элементов массива}
var
i,Kol,nc,nd:Integer;
C,D: X;
p:Real;

Procedure M(c:X;Kol:Integer; var n:integer);
Var
m,Flag:integer;
w_o_neg:boolean;
Begin
N:=0; Flag:=0; m:=0; w_o_neg := false;
For I:=1 to Kol do
begin
If c[i]>=0 then Inc(m)
Else begin
w_o_neg := true;
If (flag=0) Then
Begin
n:=m ;
Flag:=1;
end;
End;
End;
n := m;
if (w_o_neg = true) then n := 0;
End;

Begin
Writeln('Vvedite kolicestvo elementov massivov');
Readln(Kol);
For i:=1 to Kol do
Begin
Writeln('Vvedite ',i:2,' element massiva C');
Readln(C[i]);
End;
For i:=1 to Kol do
Begin
Writeln('Vvedite ',i:2,' element massiva D');
Readln(D[i]);
End;
M(c,kol,nc);
M(d,kol,nd);
p:=0;
If Nc<Nd then
Begin
For i:=1 to kol do
Begin
P:=P+C[i];
End;
P:=P/Kol;
Writeln('Srednee arifmeticeskoe massiva C = ',P:3:3);
End Else
If Nc>Nd then
Begin
For i:=1 to kol do
Begin
P:=P+D[i];
End;
P:=P/Kol;
Writeln('Srednee arifmeticeskoe massiva D = ',P:3:3);
End;

if (nc = nd) then Writeln('Massivi ekvivalentny');
Readln;
End.

Как-то так..

[midletarket]

Type
X=array[1..14] of Real;{Максимальное число элементов массивов}
var
i,KolT,nc,KolC,nt:Integer;
C,T: X;
p:Real;


Procedure M(c:X;Kol:Integer; var n:integer);
Var
m,Flag:integer;
Begin
N:=0; Flag:=0; m:=0;
For I:=1 to Kol do
begin
If c[i]>=0 then Inc(m)
Else
If (flag=0) Then
Begin
n:=m ;
Flag:=1;
End;
End;
End;Begin
Writeln('Vvedite kolicestvo elementov massiva C');
Readln(KolC);
Writeln('Vvedite kolicestvo elementov massiva T');
Readln(KolT);
For i:=1 to KolC do
Begin
Writeln('Vvedite ',i:2,' element massiva C');
Readln(C[i]);
End;
For i:=1 to KolT do
Begin
Writeln('Vvedite ',i:2,' element massiva T');
Readln(T[i]);
End;
M(c,kolC,nc);
M(t,kolT,nt);
p:=0;
If Nc<Nt then
Begin
For i:=1 to kolc do
Begin
P:=P+C[i];
End;
P:=P/KolC;
Writeln('Srednee arifmeticeskoe massiva C = ',P:3:3);
End Else
If Nc>NT then
Begin
For i:=1 to kolT do
Begin
P:=P+T[i];
End;
P:=P/KolT;
Writeln('Srednee arifmeticeskoe massiva T= ',P:3:3);
End Else Writeln('Massivi ekvivalentny');
Readln;
End.

Так тоже ведь можно?