Предмет: Информатика,
автор: Инкогнито12345
составьте программу заполнения массива a[1..10] следующими числами:
Индекс элемента 1 2 3 4 5 6 7 8 9 10
Значение элемента 1 6 3 12 5 18 7 24 9 30
Ответы
Автор ответа:
0
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
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
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: tatyanenkoi
Предмет: Физика,
автор: dim22201