Ответ:
program z1;
var a,b:array [1..10] of integer;
i,k:integer;
begin
k:=0;
write ('Массив А: ');
for i:=1 to 10 do
a[i]:=random(19)-9;
write (a[i]:5);
if a[i]>0 then
k:=k+1;
b[k]:=a[i]
end
end;
writeln;
write ('Массив В: ');
for i:=1 to k do write (b[i]:5)
end.
Объяснение:
k - переменная отвечающая за индексы массива В
Если элемент массива А положительный, то увеличиваем k на 1 и присваиваем k элементу массива В значение элемента массива А
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program z1;
var a,b:array [1..10] of integer;
i,k:integer;
begin
k:=0;
write ('Массив А: ');
for i:=1 to 10 do
begin
a[i]:=random(19)-9;
write (a[i]:5);
if a[i]>0 then
begin
k:=k+1;
b[k]:=a[i]
end
end;
writeln;
write ('Массив В: ');
for i:=1 to k do write (b[i]:5)
end.
Объяснение:
k - переменная отвечающая за индексы массива В
Если элемент массива А положительный, то увеличиваем k на 1 и присваиваем k элементу массива В значение элемента массива А
a = [random.randint(-9, 9) for i in range(10)]
print(a)
b=[]
for i in range(10):
if a[i]>0:
b.append(a[i])
print(b)
сдвинуть - if a[i]>0:
сдвинуть, сдвинуть - b.append(a[i])