Нужно решить задачу:
Заменить все положительные элементы целочисленного массива размера 10 на значение min.
Ну ладно если тебе никто не поможет тогда это сделаю я ...
var
ar:array [1..10] of integer=(-1,8,58,-2,0,-68,55,12,60,-741);
min,i:integer;
begin
readln(min);
for i:=1 to 10 do
if ar[i]>=0 then ar[i]:=min;
for i:=1 to 10 do write(ar[i],' ');
end.
Кажется, здесь что-то немного неправильно в строке ar:array [1..10] of integer=(-1,8,58,-2,0,-68,55,12,60,-741); только не пойму, где здесь мелкая ошибочка...
Исправь на
const
ar:array [1..10] of integer=(-1,8,58,-2,0,-68,55,12,60,-741);
То есть, это должно выглядить так:
const
ar:array [1..10] of integer=(-1,8,58,-2,0,-68,55,12,60,-741);
var
min,i:integer;
begin
readln(min);
for i:=1 to 10 do
if ar[i]>=0 then ar[i]:=min;
for i:=1 to 10 do write(ar[i],' ');
end.
Спасибо за помощь!