Регистрация
kokorev861oxc4k3
29.12.2021 21:36
Информатика
Есть ответ 👍

Pascal, убрать нули из массива вот код, он генерирует случайные числа и распределяет по массивам, в массив B-положительные, а в массив С-отрицательные. Но появилась проблема, на индексах где нет чисел появляются нули, подскажите как их убрать.

var N, i, j :integer;

A,B,C: array of integer;

begin

write('Введи N=');

readln(N);

setLength(A,N);

setlength(B,N);

setlength(C,N);

for i:=0 to n-1 do

begin

a[i]:=random(33)-14;

write(a[i]:7);

end;

writeln;

j:=0;

for i:=0 to n-1 do

begin

if a[i]>0

then

B[j]:=a[i]

else C[j]:=a[i];

J:=j+1;

end;

writeln;

write('massiv c');

for j:=0 to n-1 do

write(c[j]:7);

writeln;

write('massiv b');

for j:=0 to n-1 do

write(b[j]:7);

end.

253
402
Посмотреть ответы 1

Ответы на вопрос:

anystti
anystti
4,8(5 оценок)

1.Зарядные устройства на солнечных батареях 2.Зарядка-краб (лягушка) зарядить отдельно АКБ 3.через шнурок usb 4.зарядное устройство на батарейках. Новейшие модели телефонов выдерживают до 4к гигогерц, так что будь аккуратнее, иначе телефон сломается :)

Популярно: Информатика