1. Сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу:

1-й равен случайному трехзначному числу;

2-й равен текущему индексу, увеличенному в 10 раз;

3-й равен сумме двух предыдущих элементов.

(программу надо выполнить в Паскале)

Question

Информатика

Христина

9 июля, 08:20

1. Сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу:

1-й равен случайному трехзначному числу;

2-й равен текущему индексу, увеличенному в 10 раз;

3-й равен сумме двух предыдущих элементов.

(программу надо выполнить в Паскале)

+4

Ответы (2)

Знаете ответ на вопрос?

Остап · Answer 1

Var

m: array [1 ... 9] of integer;

i: integer;

begin

for i: = 1 to 9 do

begin

if i mod 3=1 then m[i]: = random (100,999) ;

if i mod 3=2 then m[i]: = i*10;

if i mod 3=0 then m[i]: = m[i-2] + m[i-1];

write (m[i],' ') ;

end

end.

Ведя · Answer 2

Program z1;

uses crt;

var

m: array [1 ... 9] of integer;

i: integer;

begin

for i: = 1 to 3 do

m[i]: = random (100+899) ;

for i : = 4 to 6 do

m[i]: = i*10;

for i: = 7 to 9 do

m[i]: = m[i-2] + m [i-1];

writeln ('массив') ;

for i : = 1 to 9 do

write (m[i],' ') ;

end.