РЕШИТЕ, ПОЖАЛУЙСТА!!!!ПАСКАЛЬ 11 КЛАССДан массив целых чисел (n=12), заполненный случайным

РЕШИТЕ, ПОЖАЛУЙСТА!!!!
ПАСКАЛЬ 11 КЛАСС
Дан массив целых чисел (n=12), заполненный случайным образом числами из интервала [-10;60]
Вставить число k перед всеми элементами, кратными числу k (k вводить с клавиатуры)

Задать свой вопрос
1 ответ
Var i,n,k:integer;
a:array[1..12] of integer;
begin
 write('Write k: '); readln(k);
 for i:=1 to 12 do
  begin
   a[i]:=Random(70)-10;
   write(a[i]:5);
  end;
   writeln;
 for i:=1 to 12 do
   If a[i] mod k=0
    then write(k:3,a[i])
    else write(a[i]:5);
 readln
end.

, оставишь ответ?
Имя:*
E-Mail:


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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт