Составить программу сокращения одномерного числового массива путем удаления а) всех элементов с нулевыми значениями дополнительный массив использовать не ! , а то !
271
386
Ответы на вопрос:
var
a : array [1..100] of integer;
i, next, n : integer;
begin
read (n);
for i : = 1 to n do read (a[i]);
next : = 1;
for i : = 1 to n do
if a[i] < > 0 then
begin
a[next] : = a[i];
next : = next + 1;
end;
n : = next - 1;
for i : = 1 to n do
write (a[i], ' ');
end.
в результате работы в n будет лежать новая длина, а после массива - будет лежать всяий мусор (огрызок прежднего массива), но это неважно.
Популярно: Информатика
-
nik1999109.05.2023 17:55
-
Камранбек03.08.2020 15:29
-
dina5364612.01.2020 12:38
-
2002elena7914.06.2022 14:22
-
bogoslowskaia12.09.2021 10:50
-
мангл00328.01.2022 20:10
-
AnyaNaglova08.12.2021 12:45
-
VasyaHrenov08.02.2021 13:40
-
Ivan236706.02.2023 09:48
-
avdzhrr14.03.2020 20:14