Одномерные массивы 1. создать массив из 10 элементов2. создать массив из 11 элементов3....

Question

Одномерные массивы
1. создать массив из 10 элементов
2. создать массив из 11 элементов
3. заполнить массив порядковыми номерами в прямом порядке
4. заполнить массив порядковыми номерами в обратном порядке
5. заполнить массив случайными числами в [0,10]
6. заполнить массив случайными числами в [0,9]
7. заполнить массив случайными числами в [-10,10]
8. заполнить массив случайными числами в [-5,5]

Answer 1

Паскаль АВС:

1. создать массив из 10 элементов
var
  a1:array [1..10] of integer;

2. создать массив из 11 элементов
var
  a2:array [1..10] of integer;

3. заполнить массив порядковыми номерами в прямом порядке
var
  a3:array [1..n] of integer;
  i:integer;
begin
  for i:=1 to n do a3[i]:=i;
 
4. заполнить массив порядковыми номерами в обратном порядке
var
  a4:array [1..n] of integer;
  i:integer;
begin
  for i:=1 to n do a4[n-i+1]:=i;

5. заполнить массив случайными числами в [0,10]
var
  a5:array [1..n] of integer;
  i:integer;
begin
  randomize;
  for i:=1 to n do a5[i]:=random(11);

6. заполнить массив случайными числами в [0,9]
var
  a6:array [1..n] of integer;
  i:integer;
begin
  randomize;
  for i:=1 to n do a6[i]:=random(10);

7. заполнить массив случайными числами в [-10,10]
var
  a7:array [1..n] of integer;
  i:integer;
begin
  randomize;
  for i:=1 to n do a7[i]:=random(21)-10;

8. заполнить массив случайными числами в [-5,5]
var
  a8:array [1..n] of integer;
  i:integer;
begin
  randomize;
  for i:=1 to n do a8[i]:=random(11)-5;

Comments

получить число и определить, попадает ли оно в диапазон (10,20)
вывести на экран числа 10, 9, 8, … 1
вывести на экран 10 случайных чисел в [10,20
заполнить массив случайными числами в [0,10]