Задача такая:
1) Введите 2 массива стостоящие не более чем 13 элементов
2) Вывести их на экран
3) Сформировать новый массив являющийся частным 1 на 2 массив
4)Вывести новый массив на экран!
5)Подсчитать количество отрицательных элементов
Я прогу на писал , но она не проходит(((
вот исходник.
Program Massiv;
Uses crt;
Const n=13;
type mas=array[1..n] of integer;
Vara,b,c:mas;
m,i:integer;
Sa,Sb,Sc:integer;
Procedure wwod(var x:mas; n:integer; name:char);
Vari:integer;
Begin
for i:=1 to n do
Begin
Write(name,'[',i,']=');
ReadLn(x);
End;
End;
Procedure wiwod(var x:mas; n:integer; name:char);
Vari:integer;
Begin
for i:=1 to n do
Begin
Write(x);
Writeln;
End;
End;
Procedure newmas(x,y:mas; n:integer; var z:mas);
Var i:integer;
Begin
for i:=1 to n do z:=x/y
End;
Function otr(x:mas; n:integer):integer;
Vari:integer;
S:integer;
Begin
For I:=1 to n do
If x[i]<0 then
S:=S+1;
End;
Begin
Clrscr;
Writeln('Введите размер массива:');
Readln(m);
Writeln('Введите первый массив:');
Wwod(a,m,'a');
Writeln('Введите второй массив:');
Wwod(b,m,'b');
Writeln('Вывод первого массива:');
Wiwod(a,m,'a');
Writeln('Вывод второго массива:');
Wiwod(b,m,'b');
newmas(a,b,m,c);
Writeln('Вывод нового массива:');
Wiwod(c,m,'c');
Sa:=otr(a,m);
Sb:=otr(b,m);
Sc:=otr(c,m);
Writeln('Количество отрицательных элементов первого массива=',Sa);
Writeln('Количество отрицательных элементов второго массива=',Sb);
Writeln('Количество отрицательных элементов нового массива=',Sc);
Readln;
End.
подскажите где ошибка и как ее исправить????