Нужно исправить ошибку в коде Это паскаль!
Type
mass=array[1..20] of real;
var
a:mass;
i,j,m:integer;
begin
randomize;
writeln('Массив A');
for i:=1 to 20 do
begin
a[i]:=(random(201)-80/(random(100)+1));
write (a[i]:6:2);
end;
m:=20;
for i:=1 to 20 do
begin
if a[i]<0 then
begin
for j:=i to 20 do
a[j] = a[j+1];
dec(m)
end;
if a[i]<0 then
dec(i)
end;
writeln('Массив A без отрицательных элементов ');
for i:=1 to m do
write (a[i]:6:2)
end.

davszbsk    1   23.11.2020 22:02    5