Вычислить количество положительных элементов заданных массивов V1(6) V2(12) V3(13) и вывести их отдельно

[ALABAMA]

понимаеш я праивльно написал ток почемуто оно у меня не щитает количество положительних елементов ето капец
можеш зделать просто написать одну процедуру на 3 масива и прописать для трех похожую фишку для вичисления положительних елементов )

[ROMA2PVT]

понимаеш я праивльно написал ток почемуто оно у меня не щитает количество положительних елементов ето капец
можеш зделать просто написать одну процедуру на 3 масива и прописать для трех похожую фишку для вичисления положительних елементов )

Ну даааа!!Там всё верно прям ваще.Я думаю тебе надо сделать просто процедуру нахождения положит.элементов и использовать для трёх массивов,а сами массивы заполнять в теле основной программы.

[ROMA2PVT]

Program rr;
uses crt;
Const
  m=6;
  n=12;
  k=13;
type
   mas=array[1..20] of integer;
var
  a,b,c:mas;
  Kol,i:integer;

procedure pn(kl:mas;l:integer);
begin
Kol:=0;
for i:=1 to l do
if kl[i]>0 then
begin
inc(Kol);
end;
end;

begin
for i:=1 to m do
begin
write('A[',i,']=',' ');
readln(a[i]);
end;
writeln;
for i:=1 to n do
begin
write('B[',i,']=',' ');
readln(b[i]);
end;
writeln;
for i:=1 to k do
begin
write('C[',i,']=',' ');
readln(C[i]);
end;
writeln;
writeln('Массив A: ');
for i:=1 to m do
begin
write(a[i],' ');
end;
writeln;
writeln('Массив B: ');
for i:=1 to n do
begin
write(b[i],' ');
end;
writeln;
writeln('Массив C: ');
for i:=1 to k do
begin
write(c[i],' ');
end;
pn(a,n);
writeln;
writeln('количество положительних елементов массива A:=',Kol);
pn(b,m);
writeln;
writeln('количество положительних елементов массива B:=',Kol);
pn(c,k);
writeln;
writeln('количество положительних елементов массива C:=',Kol);
end.

Вот принцип.Ну а изменить если чё нетрудно.

[ROMA2PVT]

Ну а для второго задания.Которое у тебя постоянно блокироваливот процедура:

procedure OtrEl(b:mas);
begin
for q:=1 to n do
 begin
 ind:=1;
   jnd:=1;
  for w:=1 to n do
 if b[q,w]<0 then
    begin
    otr:=b[q,w];
    ind:=q;
    jnd:=w;
    writeln('Отрицательный элемент ',q,'-й строки A[',ind,';',jnd,']:=',b[q,w]);
    break;
      end;
    end;
    end;

[Jakuzia]

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

понимаеш я праивльно написал ток почемуто оно у меня не щитает количество положительних елементов ето капец
можеш зделать просто написать одну процедуру на 3 масива и прописать для трех похожую фишку для вичисления положительних елементов )

У тебя есть эта программа рабочая?
если можно ответь плиз)

[Jakuzia]

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

Ну а для второго задания.Которое у тебя постоянно блокироваливот процедура:

procedure OtrEl(b:mas);
begin
for q:=1 to n do
 begin
 ind:=1;
   jnd:=1;
  for w:=1 to n do
 if b[q,w]<0 then
    begin
    otr:=b[q,w];
    ind:=q;
    jnd:=w;
    writeln('Отрицательный элемент ',q,'-й строки A[',ind,';',jnd,']:=',b[q,w]);
    break;
      end;
    end;
    end;

у вас нету этой проги готовой?)