Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>
20 раз:
7, 17, 27, 37, 47, 57, 67, 87, 97
70, 71, 72, 73, 74, 75, 76, 77, 78, 79
Есть 2 вида плодов 1 вид фрукты второй овощи далее надо распределить их я точно сказать не могу потому что не вижу само задание
Произведения художественной литературы не является моделями
Var
i,j:integer;
a,b:array[1..10]of integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
j:=1;
writeln('Измененный массив: ');
for i:=10 downto 1 do
begin
b[j]:=a[i];
write(b[j],' ');
j:=j+1;
end;
<span>end.</span>