Массивы. Тексты программ
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Ввод и вывод
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
write('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
for i:=1 to N do
read(a[i]);
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
end.
Заполнение случайными числами
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
N := 20;
for i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива: ');
for i:=1 to N do
write(a[i],' ');
end.
Заполнение арифметической прогрессией
const
Sz = 100;
a0 = 5; // Первый элемент арифметической прогрессии
d = 3; // Разность арифметической прогрессии
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
begin
N := 20;
a[1] := a0;
for var i:=2 to N do
a[i] := a[i-1] + d;
writeln('Арифметическая прогрессия: ');
for var i:=1 to N do
write(a[i],' ');
end.
Заполнение степенями двойки
const
Sz = 100;
var
a: array [1..Sz] of integer;
N: integer;
begin
N := 20;
a[1] := 2;
for var i:=2 to N do
a[i] := a[i-1] * 2;
writeln('Степени двойки: ');
for var i:=1 to N do
writeln(i:3,a[i]:9);
end.
Заполнение числами Фибоначчи
const
Sz = 100;
var
a: array [1..Sz] of integer;
N: integer;
begin
N := 20;
a[1] := 1;
a[2] := 1;
for var i:=3 to N do
a[i] := a[i-2] + a[i-1];
writeln('Числа Фибоначчи: ');
for var i:=1 to N do
write(a[i],' ');
end.
Инвертирование массива
const
Sz = 100;
var
a: array [1..Sz] of integer;
N: integer;
begin
N := 20;
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
for var i:=1 to N div 2 do
Swap(a[i],a[N-i+1]);
writeln('После инвертирования: ');
for var i:=1 to N do
write(a[i],' ');
end.
Максимальный элемент в массиве и его индекс
const
Sz = 100;
var
a: array [1..Sz] of real;
N: integer;
min: real;
minind: integer;
begin
N := 20;
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
min := a[1];
minind := 1;
for var i:=2 to N do
if a[i]<min then
begin
min := a[i];
minind := i;
end;
writeln('Минимальный элемент: ',min);
writeln('Индекс минимального элемента: ',minind);
end.