Составьте программу заполнения массива a[1..10] следующими числами: Индекс элемента 1 2 3 4 5 6 7 8 9 10 Значение элемента 1 6 3 12 5 18 7 24 9 30

Составьте программу заполнения массива a[1..10] следующими числами: Индекс элемента 1 2 3 4 5 6 7 8 9 10 Значение элемента 1 6 3 12 5 18 7 24 9 30
Гость
Ответ(ы) на вопрос:
Гость
const n=10; var a:array[1..n] of integer; i:integer; begin for i:=1 to n do  if i mod 2 = 1   then a[i]:=i else a[i]:=3*i; for i:=1 to n do write(a[i],' '); end. Результат: 1 6 3 12 5 18 7 24 9 30 
Не нашли ответ?
Ответить на вопрос
Похожие вопросы