Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Замены в массивах - 2

Автор: mitz 23.04.2008 4:36

Нужно решить задачу:
Заменить все положительные элементы целочисленного массива размера 10 на значение min.

Автор: Bard 23.04.2008 15:07

Ну ладно если тебе никто не поможет тогда это сделаю я yes2.gif ...


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.

Автор: mitz 24.04.2008 13:23

Кажется, здесь что-то немного неправильно в строке ar:array [1..10] of integer=(-1,8,58,-2,0,-68,55,12,60,-741); только не пойму, где здесь мелкая ошибочка... blink.gif

Автор: Client 24.04.2008 13:40

Исправь на

const
ar:array [1..10] of integer=(-1,8,58,-2,0,-68,55,12,60,-741);

Автор: mitz 25.04.2008 19:01

То есть, это должно выглядить так:


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.


Теперь всё понятно. rolleyes.gif

Автор: mitz 27.04.2008 18:24

Спасибо за помощь! cool.gif