• РЕШИТЕ, ПОЖАЛУЙСТА!!!!
    ПАСКАЛЬ 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); readlnend.
    • Автор:

      Ángeles
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years