Ошибка, которую "заметил" компилятор, состоит в нарушении запрета на модификацию параметра цикла For в теле цикла. Для Ваших целей надо было использовать цикл с итерацией, например такой:
r := 460; while r >= 100 do begin circle(620, 480, r); r := r - 35 end;
В соответствии с алгоритмом, программа должна нарисовать концентрические окружности, центр которых имеет координаты 620;480, а радиус уменьшается от 460 до 100 с шагом 35. После окончания рисования производится заливка различными цветами областей, начальные точки которых указаны своими координатами, а границей области является какая-либо ранее нарисованная линия. Попробуйте выполнить эту программу...
signed main(){
int n, m;
cin >> n >> m;
vector<vector<int>> a(n, vector<int> (m));
for(int i = 0; i < n; i++)
for(int j = 0; j < m; j++)
cin >> a[i][j];
int col = 0, mx = a[0][0];
for(int i = 0; i < n; i++){
for(int j = 0; j < m; j++){
if(a[i][j] > mx){
mx = a[i][j];
col = j;
}
}
}
for(int i = 0; i < n; i++)
swap(a[i][0], a[i][col]);
for(int i = 0; i < n; i++){
for(int j = 0; j < m; j++)
cout << a[i][j] << " ";
cout << "\n";
}
}
r := 460;
while r >= 100 do
begin
circle(620, 480, r);
r := r - 35
end;
В соответствии с алгоритмом, программа должна нарисовать концентрические окружности, центр которых имеет координаты 620;480, а радиус уменьшается от 460 до 100 с шагом 35. После окончания рисования производится заливка различными цветами областей, начальные точки которых указаны своими координатами, а границей области является какая-либо ранее нарисованная линия.
Попробуйте выполнить эту программу...