бір өлшемді массив

Question

Салем достар. Маған тағы да көмектерің керек болып тұр. Х(10) векторының барлық теріс элементтерін "0"-мен алмастыру керек. Алдын ала рахмет!

Answer 1

program es15;
var A:array[1..100] of integer;
i,n,k:integer;
begin
randomize;
writeln('massiv olshemin engiz');
readln(n.);
for i:= 1to n do
A[i]=-25+random(100);
for i:= 1to n do
begin
writeln;
write(A[i]:5); end;
k:=0;
for i:= 1 to n do
if A[i]<0 then begin
A[i]:=0;
k:= k+1; end;
writeln;
writeln('teris elementter =',k);
for i:=1to n do
begin
write(A[i]:5); end;
readln;
end.

Answer 2

Берилген массивте, коршилес орналаскан элементтер арасында тен элементтер бар екенин тексеру керек