Предмет: Информатика, автор: Kармаш

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

Ответы

Автор ответа: jsimonj
0
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.

Автор ответа: Аноним
0
Блiа, пробелы съел. Но всё равно, насколько понятнее и красивее нерусского пасцала.
Автор ответа: Kармаш
0
спасибо, попробую разобраться :)
Автор ответа: jsimonj
0
Все равно, паскаль, лично для меня, понятнее)
Автор ответа: Аноним
0
Ну просто ты привык к нерусскому коду. А я в других условиях это дело осваивал =)
Автор ответа: jsimonj
0
Ясно-понятно)
Похожие вопросы
Предмет: Физика, автор: rty19973