Одномерные массивы с использованием процедур

[LenaRomashkina]

Нужно
а) посчитать количество нулевых элементов одномерных массивов А,В,С разных размерностей. Размерность считывать с клавиатуры.
б) удалить нулевые элементы из этих массивов
ПОМОГИТЕЕЕ!

[Stilet]

А хотя бы код ввода массивов ты написать можешь?

[min@y™]

одномерных массивов А,В,С разных размерностей

Это как?

[LenaRomashkina]

Ввод массива могу написать как-то так

program blin;
 type mas=array [1..100] of integer;
 var k:integer;
 b:mas;
procedure vvodmas (var A:mas; n: integer);
 var i: integer;
 begin
 writeln('Ввод массива');
 for i:=1 to n do
  A[i]:=random(50);
  end;

это уже с процедурой ввода

[Stilet]

Ну отлично. Значит

посчитать количество нулевых элементов

Будет выглядеть так:

function count(A:mas; n: integer):Integer;
var i:integer;
begin
 Result:=0; for i:=1 to n do if A[i]=0 then inc(Result);
end;

И применение:

write(count(b,k));

удалить нулевые элементы из этих массивов

Может быть таким:

function delka(A:mas; n: integer):mas;
var j,i:integer;
begin
 j:=1;
 FillChar(Result,-1,Sizeof(Result));
 for i:=1 to n do if A[i]<>0 then begin Result[j]:=A[i]; inc(j); end;
end;

И применение:

b:=delka(b,k);
Тут выводим "b"

Идея ясна?

[LenaRomashkina]

это понятно, я не могу понять как ввести три разных массива, так еще и размерность самим ввести

[Stilet]

Странный вопрос. У тебя же все это есть:

procedure vvodmas (var A:mas; n: integer);
 var i: integer;
 begin
 writeln('Сколько элементов?:');readln(n);
 writeln('Ввод массива');
 for i:=1 to n do
  A[i]:=random(50);
  end;