Нужно исправить ошибку в коде Это паскаль!
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.

179

308

Посмотреть ответы 2

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

nshexovceva18

Информатика

4,7(58 оценок)

Здравствуйте я хотела уточнить только я не понимаю

nikvermenox7gay

Информатика

4,7(55 оценок)

64000 делим на 16000 равно 4 следовательно ответ под номером 3

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.