1. Сформируйте и выведите на экран массив из 9 частей, каждые

Question

1. Сформируйте и выведите на экран массив из 9 частей, каждые

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

1-й равен случайному трехзначному числу;
2-й равен текущему индексу, увеличенному в 10 раз;
3-й равен сумме 2-ух предыдущих частей.

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

Задать свой вопрос

Сундиев Мишаня
Информатика
2019-09-09 16:45:49
1
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

8x+3y+-248x-3y=-72Помогите плиз

Назовите состояние вещества, в котором оно занимает весь предоставленный ему объем

1.what time did you left/leave for school this morning?2.They didnt go/

Стороны треугольника относиться как 5:12:13 . Найдите его площадь , если

С какими из перечисленных веществ будет вести взаимодействие оксидм меди2:вода,оксид азота5 ,

Вопросы после документа!10 класс сообщество боголюбов. Страничка 316.

2sina+sin2a/2sina-sin2a

вопрос из рассказа quot;Васюткиновопрос из рассказа quot;Васюткино озероquot;что посодействовало Васютке выйти

К. пришло уведомление из налоговой инспекции о необходимости выплатить налог с

Помогите пожалуйстаПрочетай отрывог из текста Б.Галанова . Выпеши основную мысль.

Нина Копыткина · Answer 1 · 2019-09-09 16:48:08+3:00

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 · 2019-09-09 16:47:56+3:00

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.

О проекте

1. Сформируйте и выведите на экран массив из 9 частей, каждые

Добро пожаловать!