Массив состоит из 10 эл-ов. Вывести на экран автоматически. Убрать из него все отрицательные числа, заменив их нулями, и поставить в конец. Спасибо
Паскаль
уже давно школу окончила
> ...и поставить в конец
Что поставить в конец?
procedure pa(a: array of integer; n: integer);
var
c: integer;
begin
for c := 0 to n - 1 do write(a[c]:3);
writeln;
end;
var
a: array [1..10] of integer;
c, n: integer;
begin
randomize;
for c := 1 to 10 do a[c] := random(11) - 5;
pa(a, 10);
for c := 1 to 10 do if a[c] < 0 then a[c] := 0;
pa(a, 10);
for c := 1 to 10 do
if a[c] <> 0 then begin
inc(n);
a[n] := a[c];
end;
for c := n + 1 to 10 do a[c] := 0;
pa(a, 10);
end.
а какой язык программирования
Оплата? (возможно и без нее)
Язык??? ?
Если паскаль - то сама пиши в школе тебе дали все необходимые для этого навыки
Ввиду того, что не указан язык программирования, укажу лишь алгоритм:
Заполняешь массив
Выводишь на экран
В новый массив переводишь элементы, проверяя на отрицательность
Положительно-нулевые в начало, отрицательные заменяешь на ноль и помещаешь в конец
Выводишь на экран
Удачи!
⇢