Jogra
6 год назад
Из массива A[1 .. N] получить массив В, в который войдут только отрицательные элементы массива А.
ОТВЕТЫ
Емельян
Jul 6, 2019
Program lal;
const N=5;
var i,d:integer;
a:array[1..N] of integer;
b:array[1..N] of integer;
begin
d:=1;
for i:=1 to N do readln(a[i]);
for i:=1 to N do
begin
if a[i]lt;0 then
begin
b[d]:=a[i];
d:=d+1;
end;
end;
for i:=1 to d-1 do write(b[i], );
end.
const N=5;
var i,d:integer;
a:array[1..N] of integer;
b:array[1..N] of integer;
begin
d:=1;
for i:=1 to N do readln(a[i]);
for i:=1 to N do
begin
if a[i]lt;0 then
begin
b[d]:=a[i];
d:=d+1;
end;
end;
for i:=1 to d-1 do write(b[i], );
end.
248
Смежные вопросы:
