Составьте программку, которая наполняет массив а [1..10] случайными числами в спектре

Составьте программку, которая заполняет массив а [1..10] случайными числами в спектре от 10 до 40, потом меняет местами 4 и 7 элемент массива. Это Pascal, 9 класс

Задать свой вопрос
2 ответа
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,10,40); a.Println;
  Swap(a[3],a[6]); a.Println
end.

Пример
15 19 29 28 27 20 37 34 39 31
15 19 29 37 27 20 28 34 39 31
Var
  A: array [1..10] of byte;
  i, tmp: byte;
begin
randomize;
  for i := 1 to 10 do
    A[i] := random(31)+10;
  writeln('Сгенерированный массив.');  
  for i := 1 to 10 do
    write(A[i],' ');
  tmp := A[7];
  A[7] := A[4];
  A[4] := tmp;
  writeln;
  writeln('Модифицированный массив.');
  for i := 1 to 10 do
    write(A[i], ' ');
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт