помогите решить задачу на Turbo Паскале!

[ALF]

Сформулируйте и выведите на экран массив из 9 элементов каждые 3 последующие элементы которого формулируются по правилам:
1- равен числу введенного с клавиатуры;
2- равен удвоенному текущему индексу;
3 -равен однозначному числу полученному с помощью датчика случайных чисел.
Очень надо!
За ранее блогадарен!

[Stilet]

Идеи есть?

[ALF]

Надо создать масив но как и внего заганять данные!

[Иллидан]

Может не сформулируйте, а сформируйте? В чем проблема ? Читай сразу три элемента в цикле от одного до 9. Или проверяй делимость числа на 3 и на 2 через mod.

Наример

randomize;
i:=1;
while i<=9 do begin
readln(a[i]);
i:=i+1;
a[i]:=2*i;
writeln(a[i]);
i:=i+1;
a[i]:=random(10);
writeln(a[i]);
i:=i+1;
end;

[puporev]

Чтобы приведенный выше алгоритм красиво работал, его нужно слегка дополнить и сделать вывод не столбиком..

uses crt;
var a:array[1..9]of integer;
    i:integer;
begin
clrscr;
randomize;
i:=1;
while i<=9 do
   begin
     readln(a[i]);
     i:=i+1;
     a[i]:=2*i;
     i:=i+1;
     a[i]:=random(10);
     i:=i+1;
    end;
for i:=1 to 9 do
write(a[i],' ');
readln
end.

[ALF]

Все понятно только как формируется каждое второе число масив? Это число должно быть в два раза больше введенного с клавиатуры!

uses crt; - очищает экран
var a:array[1..9]of integer; - формирует масив из 9 ячеек
i:integer; - определяем тип перменной
begin
clrscr;
randomize;
i:=1; - присваиваем начально значение переменной
while i<=9 do - проверяем что i меньше 9
begin
readln(a[i]); -считываем переменную
i:=i+1; - прибавляем 1
a[i]:=2*i; умножаем на 2
i:=i+1; и еще раз прибавляем 1
a[i]:=random(10); - генерируем число до 10
i:=i+1; - прибавляем 1
end; конец процедур
for i:=1 to 9 do цикл 9 раз
write(a[i],' '); записваем в масив
readln прибавляем счетчик
end. конец

я правильно разобрался в программе?

[puporev]

По условию:

2- равен удвоенному текущему индексу;

Ты пишешь

Это число должно быть в два раза больше введенного с клавиатуры!

Сам-то разберись с условием.

uses crt; - модуль для работы с экраном и клавиатурой
var a:array[1..9]of integer; - формирует масив из 9 элементов 
i:integer; - счетчик цикла - целое число
begin 
clrscr; //очищаем экран
randomize; 
i:=1; - присваиваем счетчику цикла значение 1
while i<=9 do - проверяем что i меньше или равно 9
begin 
readln(a[i]); -считываем первую переменную
i:=i+1; - прибавляем 1
a[i]:=2*i; умножаем текущий индекс на 2(как в первом условии)
i:=i+1; и еще раз прибавляем 1
a[i]:=random(10); - генерируем число от 0 до 9
i:=i+1; - прибавляем 1
end; конец первого цикла 
for i:=1 to 9 do цикл 9 раз
write(a[i],' '); //выводим массив на экран
readln   //задержка до нажатия клавиши Enter
end. конец

[ALF]

а зачем два раза прибавляем в 12 16 строке единицы?

[puporev]

i:=1;  
while i<=9 do   
begin    
readln(a[i]); -считываем первую переменную  // a[1]
i:=i+1; - прибавляем 1          
a[i]:=2*i; умножаем текущий индекс на 2(как в первом условии) //a[2]  
i:=i+1; и еще раз прибавляем 1  
a[i]:=random(10); - генерируем число от 0 до 9  //a[3]
i:=i+1; - прибавляем 1   //все повторяем еще два раза, пока i не будет равно 9.

[ALF]

Все разобрался всем БОЛЬШОЕ спасибо!