Задание 37. Массивы - 7

Задание 37. Массивы-7

1. Дан целочисленный массив из30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести минимальное значение среди трёхзначных элементов массива, делящихся на 7. Если в исходном массиве нет элемента, значение которого является трёхзначным числом и при этом кратно семи, то выведите сообщение «Не найдено».

2. Дан массив, содержащий 2016 целых чисел. Необходимо найти и вывести сумму тех элементов этого массива, чётность которых не совпадает с чётностью минимального элемента. Например, в массиве из 6 элементов, равных соответственно 2, 3, 1, 5, 6, 4, минимальный элемент нечётный(1), значит, ответом будет сумма чётных элементов этого массива2 + 6 + 4 = 12. Если элементов нужной чётности в массиве нет, сумма считается равной нулю.

const N=2016;

var a: array [1..N] of integer;

i, m, s, p: integer;

begin

for i:=1 to N do

readln(a[i]);

…

end.

1. Дан массив, содержащий 2017 положительных целых чисел, не превышающих 1000. Необходимо найти и вывести максимальный из тех элементов этого массива, восьмеричная запись которых содержит не менее четырёх цифр и оканчивается цифрой 4. Если таких чисел в массиве нет, ответ считается равным нулю. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.

const N=2017;

var a: array [1..N] of integer;

i, m,k: integer;

begin

for i:=1 to N do

readln(a[i]);

…

end.

1. Дан массив, содержащий 2015 неотрицательных целых чисел. Ямой называется не крайний элемент массива, который меньше обоих своих соседей. Необходимо найти в массиве самую глубокую яму, то есть яму, значение которой минимально. Если в массиве нет ни одной ямы, ответ считается равным 0. Например, в массиве из шести элементов, равных соответственно 4, 9, 2, 17, 3, 8, есть две ямы – 2 и 3, самая глубокая яма – 2.

const n = 2015;
var a: array [0..n-1] of integer; i, j, k: integer;
begin
for i := 0 to n-1 do
readln(a[i]); ...
end.

1. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать любые целые значения. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит номер элемента массива, наименее отличающегося от среднего арифметического всех его элементов.

Делаем в тетради

1. 19-37. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do A[10-i]:=i;

k:=A[9];

for i:=0 to 9 do

A[10-i]:=A[9-i];

A[1]:=k;

Чему будут равны элементы этого массива?

1. 19-54. В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

A[0]:=1;

for i:=1 to 10 do

A[i]:=2+A[i-1];

for i:=0 to 5 do

A[10-i]:=A[i]-1;

Чему будут равны элементы этого массива?

1. 19-77. В программе описан одномерный целочисленный массив A, в представленном фрагменте программы обрабатываются элементы массива с индексами от 1 до 27.

n:=27;

A[1]:=3;

for i:= 2 to n do begin

A[i] := 3*A[i–1] mod 10;

end;

Чему будет равен элемент массива A[27] после выполнения данной программы?

1. 19-81. В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:

s:=0;

n:=10;

for i:=0 to n-2 do begin

s:=s+A[i]-A[i+2]

end;

В начале выполнения этого фрагмента в массиве находились двухзначные натуральные числа. Какое наибольшее значение может иметь переменная s после выполнения данной программы?

1. 19-88. В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 8, 4, 3, 0, 7, 2, 1, 5, 9, 6 соответственно, т.е. A[0] = 8; A[1] = 4 и т.д. Определите значение переменной s после выполнения следующего фрагмента программы:

s := 0;

for j := 0 to 8 do

if A[j] A[j+1] then begin

s := s + 1;

t := A[j];

A[j] := A[j+1];

A[j+1] := t;

end;