1. Сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу: 1-й равен случайному трехзначному числу; 2-й равен текущему индексу, увеличенному в ...
1. Сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу:
1-й равен случайному трехзначному числу;
2-й равен текущему индексу, увеличенному в 10 раз;
3-й равен сумме двух предыдущих элементов.
(программу надо выполнить в Паскале)
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы