Кумир! Помогите, пожалуйста с задачей:Заполните массив двадцатью числами так, что каждый...

Question

Кумир! Помогите, пожалуйста с задачей:
Заполните массив двадцатью числами так, что каждый пятый элемент равен 100, а остальные равны своему номеру.

Comments

алгнач цел б, ср=0; цел таб а[1:20] нц для б от 1 до 20 а[б]:=б кц нц для б от 5 до 20 шаг 5а[б]:=100кц нц для б от 1 до 20 вывод а[б],' ' кцкон

---

спасибо огромное! :)))

Answer 1

Const
  n = 20;

var
  i: integer;
  A: array[1..n] of integer;

begin
  for i := 1 to n do
    if i mod 5 = 0 then A[i] := 100
    else A[i] := i;
  for i := 1 to n do
    writeln(A[i]);
end.

Comments

Так вы помочь можете или нет?))

---

Честно, я вряд ли)

---

печально :(

---

спасибо, попробую разобраться :)

---

Все равно, паскаль, лично для меня, понятнее)

---

Ясно-понятно)