Починить код в Pascal ABC

@gosha_ · Регистрация: 10.12.2017

Студворк — интернет-сервис помощи студентам

Есть вот такой код, который вычисляет номер макс. элемента по модулю, сумму элементов массива,расположенные после первого положительного элемента и преобразовывает массив таким образом,чтобы сначала располагались все элементы, целая часть которых лежит в интервале [a,b], а потом все остальные.
Выходит ошибка: Program1.pas(33) : Нельзя изменять значение переменной цикла внутри этого цикла.
Помогите пожалуйста починить этот код, чтобы все работало!!!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
var a,aa:array [1..20] of real;
n,i:1..20;
max,s:real;
m,c,d,j:integer;
b:boolean;
begin
randomize;
write ('Введите число элементов массива');
readln (n);
write ('Введите числа а и b');
readln (c,d);
writeln('Введите элементы массива');
max:=0;
s:=0;
b:=false;
j:=1;
for i:=1 to n do 
begin
a[i]:=(random(1000)-500)/10;
write (a[i],' ');
if abs (a[i])>max then
begin 
max:=abs (a[i]); m:=i;
end;
if b then s:=(a[i])+s;
if a[i]>0 then b:=true;
if (a[i]>c) or (a[i] begin
aa[j]:=a[i];
j:=j+1;
end;
begin
for i:=1 to n do
for j:=1 to n-1 do
if ((trunc(m[j])>b) or (trunc(m[j])=a) and (trunc(m[j+1])<=b) then
begin
k:=m[j];
m[j]:=m[j+1];
m[j+1]:=k;
end;
writeln('Отсортированный массив');
for i:=1 to n do write(m[i]:0:3,' ');
readln;
end;
writeln;
writeln('Номер макисмального по модулю элемента массива', m);
writeln;
writeln('Сумма модулей элемента массива', s);
end;
end.

@Puporev · 10.12.2017, 12:37

Вы сначала почините код чтобы он запускался.

@gosha_ · 10.12.2017, 12:41 **[ТС]**

Сообщение от Puporev

Вы сначала почините код чтобы он запускался.

В том то и дело,что я не знаю почему выдает ошибку при запуске((

@Puporev · 10.12.2017, 12:44

Строка 27

Pascal
1
if (a[i]>c) or (a[i] begin

это как? И не врите что это у Вас работает.
Ошибку Вы приводите в строке 33

@gosha_ · 10.12.2017, 12:47 **[ТС]**

Я не говорю, что у меня работает, но ошибку выдает именно в 33 строке.
Что тут нужно менять вообще? Я не понимаю((

@Puporev · 10.12.2017, 12:48

Сообщение от gosha_

Я не понимаю((

Ну и с Богом...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	10.12.2017, 12:37
	Вы сначала почините код чтобы он запускался. 0

@gosha_ 0 / 0 / 0 Регистрация: 10.12.2017 Сообщений: 4
	10.12.2017, 12:47 [ТС]
	Я не говорю, что у меня работает, но ошибку выдает именно в 33 строке. Что тут нужно менять вообще? Я не понимаю(( 0