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

103

314

Посмотреть ответы 2

Ответы на вопрос:

mashabredikhina2

Информатика

4,4(96 оценок)

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

23Олеся1

Информатика

4,4(67 оценок)

Screen 7 color 1, 2 for x = 1 to 200 step 10 pset (x, 50), 4 sleep 1 pset (x, 50), 2 next x endдвижение точки.без dosboxcolor 1, 2for x = 1 to 20 cls locate 5, x print "*" sleep 1next xend