var
A: array[1..255] of integer;
N, i, min, k: byte;
begin
writeln(' Массив какого размера вы хотите задать? ');
write(' N = ');
readln(N);
writeln(' Введите ', N, ' элементов массива(через пробел):');
write(' ');
for i := 1 to N do
read(a[i]); //Вводим элементы массива
N := N div 2; //Количество четных номеров массива.
min := a[2]; //Минимальный элемент
k := 2; //и его начальный номер.
for i := 2 to N do
if a[2 * i] < min then //Если находится элемент меньше min,
begin
min := a[2 * i]; //то он становится минимальным.
k := 2 * i //Запоминаем номер минимального элемента.
end;
write(' Минимальный элемет среди четных');
writeln(' номеров равен: a[', k, '] = ', min)
end.
//Задание №1
const
m = 5;
n = 7;
var
a: array[1..m, 1..n] of integer;
i, j, s: integer;
begin
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(21) - 10;
if (i mod 2) <> 0 then s := s + a[i, j];
write(a[i, j]:4);
end;
writeln;
end;
write('Сумма элементов на нечетных строках = ', s);
end.
Тестовое решение:
-10 2 -1 -8 -9 -1 5
2 -10 2 4 8 -6 8
0 3 2 3 -8 -10 4
3 -3 -4 2 9 -8 3
9 -4 -1 3 7 3 -2
Сумма элементов на нечетных строках = -13
//Задание №2
const
m = 5;
n = 7;
var
a: array[1..m, 1..n] of integer;
i, j, s: integer;
begin
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(21) - 10;
if (i mod 2) <> 0 then s := s + a[i, j];
write(a[i, j]:4);
end;
writeln;
end;
writeln('Элементы на нечетных столбцах:');
for i := 1 to m do
begin
for j := 1 to n do
begin
if (j mod 2) <> 0 then write('a[', i, ',', j, '] = ', a[i, j], ' ');
end;
writeln;
end;
end.
Тестовое решение:
4 -10 -7 -4 -7 -5 -10
-1 3 6 -10 -2 -1 -5
2 8 -5 -1 -3 1 2
3 10 -5 6 -1 3 2
-8 3 4 5 -1 6 10
Элементы на нечетных столбцах:
a[1,1] = 4 a[1,3] = -7 a[1,5] = -7 a[1,7] = -10
a[2,1] = -1 a[2,3] = 6 a[2,5] = -2 a[2,7] = -5
a[3,1] = 2 a[3,3] = -5 a[3,5] = -3 a[3,7] = 2
a[4,1] = 3 a[4,3] = -5 a[4,5] = -1 a[4,7] = 2
a[5,1] = -8 a[5,3] = 4 a[5,5] = -1 a[5,7] = 10
создание и ведение баз данных с возможностью выбора записей по заданному критерию и сортировки по любому параметру
(о - оруженосец, р - рыцарь) 1о отвозит 1р на берег, возвращается и уезжает с 2о, который потом возвращается и привозит 2р, едет за 3о, высаживают 2о и 3о едет за 3р