Ответы
Ответ дал:
4
var
counter, i, N:integer;
mas:array[1..9999] of integer;
begin
readln(N);
for i:=1 to N do
readln(mas[i]);
for i:=1 to N do
if mas[i]<0 then
mas[i]:=0
else
counter:=counter+1;
for i:=1 to N do
write(mas[i],' ');
end.
counter, i, N:integer;
mas:array[1..9999] of integer;
begin
readln(N);
for i:=1 to N do
readln(mas[i]);
for i:=1 to N do
if mas[i]<0 then
mas[i]:=0
else
counter:=counter+1;
for i:=1 to N do
write(mas[i],' ');
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад