Задание 7.4. Обработка упорядоченных массивов
В каждой из задач данного раздела задан массив чисел, упорядоченных каким-либо образом. Программа должна:
1) вводить и выводить исходный массив и, возможно, дополнительные данные;
2) проверять массив на упорядоченность;
3) выполнять действия в соответствии с условием задачи;
4) выводить результаты.
Исходные данные для отладки программы выбрать самостоятельно.
Объяснение:
Вариант
Задание
1
В упорядоченном по невозрастанию массиве чисел найти произведение отрицательных чисел и количество нулей.
2
В упорядоченном по убыванию массиве чисел найти сумму положительных чисел и определить, есть ли в нем отрицательные числа.
3
В упорядоченном по невозрастанию массиве чисел определить на каком месте должно находиться заданное число В.
4
В упорядоченном по возрастанию массиве чисел найти произведение отрицательных чисел и определить, есть ли в массиве положительные числа.
5
В упорядоченном по неубыванию массиве чисел найти количество отрицательных чисел и определить, есть ли в массиве нули.
6
В упорядоченном по неубыванию массиве чисел определить, есть ли заданное число А, и найти количество чисел, меньших А.
7
В упорядоченном по невозрастанию массиве чисел найти количество чисел, равных А, и определить, есть ли в массиве числа, попадающие в интервал (x;y].
8
В упорядоченном по убыванию массиве чисел найти сумму номеров нулевых чисел и определить, есть ли в массиве отрицательные числа.
9
В упорядоченном по неубыванию массиве чисел найти произведение отрицательных чисел и определить есть ли в массиве положительные числа.
10
В упорядоченном по невозрастанию массиве чисел найти количество чисел, больших А, и определить, есть ли в массиве отрицательные числа.
11
В упорядоченном по возрастанию массиве чисел определить, есть ли заданное число А, если нет, то найти номер места, на котором оно должно находиться.
12
В упорядоченном по возрастанию массиве чисел найти сумму номеров положительных чисел и определить, есть ли нули в этом массиве.
13
В упорядоченном по неубыванию массиве чисел найти сумму чисел, не попадающих в интервал [x;y), и количество нулей.
14
В упорядоченном по невозрастанию массиве чисел определить, на каком месте должно находиться заданное число А.
15
В упорядоченном по убыванию массиве чисел определить, есть ли заданное число А, и найти среднее арифметическое чисел из заданного интервала (x;y).
16
В упорядоченном по возрастанию массиве чисел определить, есть ли заданное число А, и найти произведение квадратов чисел, меньших А.
17
В упорядоченном по неубыванию массиве чисел найти сумму номеров отрицательных чисел и определить, есть ли нули в этом массиве.
18
В упорядоченном по невозрастанию массиве чисел найти сумму положительных чисел и определить, есть ли в нем числа из заданного интервала (x;y] .
19
В упорядоченном по невозрастанию массиве чисел определить, на каком месте должно находиться заданное число В.
20
В упорядоченном по возрастанию массиве чисел определить, есть ли заданное число А, и найти сумму квадратов чисел, больших А.
21
В упорядоченном по невозрастанию массиве чисел найти произведение чисел из заданного интервала [x;y] и определить, есть ли в массиве положительные числа.
22
В упорядоченном по убыванию массиве чисел определить, есть ли заданное число А, если нет, то найти номер места, на каком оно должно находиться.
23
В упорядоченном по невозрастанию массиве чисел найти сумму номеров отрицательных чисел и количество нулей.
24
В упорядоченном по неубыванию массиве чисел определить количество чисел, равных заданному числу С, и определить, есть ли в массиве числа, не попадающие в заданный интервал [x;y).
25
В упорядоченном по невозрастанию массиве чисел найти сумму номеров отрицательных чисел и определить, есть ли нули в этом массиве.
26
В упорядоченным по убыванию массиве чисел найти сумму чисел, меньших заданного А, и определить, есть ли в массиве отрицательные числа.
27
В упорядоченном по неубыванию массиве чисел найти среднее арифметическое чисел из заданного интервала (x;y) и определить, есть в массиве неотрицательные числа.
28
В упорядоченном по невозрастанию массиве чисел найти сумму чисел, равных заданному числу А и определить, есть ли в массиве отрицательные числа.
29
В упорядоченном по убыванию массиве чисел определить, есть ли заданное число А, и определить сумму чисел, меньших А.
30
В упорядоченном по возрастанию массиве чисел подсчитать сумму отрицательных чисел и определить, есть ли в массиве положительные числа.
1)
var
A,s: integer;
begin
writeln ('Ведите А: ');
readln(A);
if A>30000 then
begin
writeln ('Ошибка. А больше 30000');
end
else
begin
s := 0;
while a > 0 do
begin
s := s + A mod 10;
A := A div 10;
end;
writeln(s);
end;
end.
2)
var
C,index,i: integer;
begin
writeln ('Ведите C: ');
readln(C);
if C>30000 then
begin
writeln ('Ошибка. C больше 30000');
end
else
begin
for i:=0 to C do begin
if(i mod 2) = 0 then
else begin
index:=index+1;
end
end
end;
writeln (index);
end.