Question

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

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.

Answer 2

Блiа, пробелы съел. Но всё равно, насколько понятнее и красивее нерусского пасцала.

Answer 3

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

Answer 4

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

Answer 5

Ну просто ты привык к нерусскому коду. А я в других условиях это дело осваивал =)

Answer 6

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