Помогите решить задачу в фри паскале ** тему массив:уменьшить элементы,стоящие ** четных...

Question

Помогите решить задачу в фри паскале на тему массив:уменьшить элементы,стоящие на четных местах на второй элемент массива

Answer 1

Var
  i,n:integer;
  a:array[1..10]of integer;
begin
write('Исходный массив');
for i:=1 to 10 do
  begin
  a[i]:=random(10);
  write(a[i],' ');
  end;
writeln;
n:=a[2];
writeln('Преобразованный массив');
for i:=1 to 10 do
  begin
  if (i mod 2=0) then a[i]:=a[i]-n;
  write(a[i],' ');
  end;
end.

Comments

Фри паскаля у меня нет, проверить не могу. Поэтому, если какая строка не пойдет, пиши, будем разбираться.

---

спасибо большое

---

не пашет прога,что можно исправить?

---

Что говорит когда запускаешь? Может, ты название не дал. В первой строке должно быть что-то типа этого: program a1

---

А, ну и точка с запятой на конце.

---

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

---

А. твоя версия такого не понимает, видно. Напиши так: a[i]:=int(rnd*10);

---

спасибо,сейчас попробую

---

да,отлично,все запустилось.большое спасибо

---

Ну и хорошо))