Question

1. Создать массив, каждый элемент (значение) которого равен квадрату своего номера (индекса). [4 балла]

2. Создайте пустой массив и заполните его произвольными числами. Отсортировать его по убыванию

Answer 1

Ответ:

1. Program CreateMas;

var

i: integer;  

 mas: array[1..20] of integer;  

Begin

 for i := 1 to 20 do mas[i] := i*i;

End.

 

2. Program SortMas;

var

i, j, k: integer;  

 mas: array[1..20] of integer;  

Begin

 randomize;  

 for i := 1 to 20 do mas[i] := random(100);

 writeln;

 writeln('массив до сортировки');

 for i := 1 to 20 do write(mas[ i], ' ');  

 for i := 1 to 19 do  

   for j := i + 1 to 20 do  

     if mas[i] < mas[j] then  

     begin

       k := mas[i];

       mas[i] := mas[j];

       mas[j] := k;  

     end;

 writeln('массив после сортировки');

 for i := 1 to 20 do write(mas[ i], ' ');  

End.