На языке С++ №7 Задан массив, состоящий из 15 элементов вещественного типа. Определить количество элементов, значения которых больше первого элемента.
№8 Задан массив, состоящий из 16 элементов вещественного типа. Определить индексы (местоположение) максимального и минимального элементов.
№9 Дан массив, состоящий из 15 элементов целого типа. Получить новый массив, как разность между элементами исходного массива и его среднего арифметического.
№10 Ввести целочисленный массив, состоящий из 17 элементов (положительных и отрицательных). Найти сумму элементов, абсолютное значение которых больше среднеарифметического модулей отрицательных элементов.
№11 Ввести целочисленный массив, состоящий из 14 элементов. Вычислить количество и сумму четных по значению положительных элементов.
№12 Ввести массив, состоящий из 12 элементов действительного типа. Расположить элементы в порядке убывания. Вычислить сумму максимального и минимального элементов массива.
№13 Ввести целочисленный массив, состоящий из 15 элементов. Определить сумму и разность максимального и минимального элементов
№14 Ввести целочисленный массив, состоящий 17 элементов. Заменить элементы кратные трем на сумму нечетных по значению элементов.
#
# https://pastebin.com/Nasemc0T
#
# Python 3.x
# 1.
# Для теста возьмем конкретную матрицу 8x8.
matrix=[[-35, 115, -45, -25, 1, 83, 13, 53], [119, 128, 31, 124, 66, 126, 63, -1], [-21, 86, 120, 68, 149, 65, -42, 107], [108, 112, 96, 25, 99, 9, 140, 89], [51, 99, 68, 80, 26, 74, 105, -6], [92, 82, 22, 54, 11, 87, -2, -42], [26, -21, 129, 85, 97, 101, 106, 96], [10, -7, -28, 96, 115, 57, -25, 77]]
# Эквивалентно .flatten() для numpy матрицы.
array=list()
for row in matrix: array=array + row
maximum=max(array)
print("#1. Maximum: ", maximum)
# 2.
file="test.txt"
with open(file) as fp:
amount=int(fp.readline())
array=list()
for _ in range(amount):
digit=int(fp.readline())
array.append(digit)
# конец двойно табуляции
maximum=max(array)
print("#2. Maximum: ", maximum)
var a : array [1..3, 1..4] of integer
b : array [1..3] of integer
Max, i, j : integer
BEGIN
crt;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
read (a[i, j]); // вводим элементы в массив a[1..3, 1..4]
end;
writeln; // делаем пустой перевод строки
end;
for i:=1 to 3 do
begin
b[i] := a[i, 1];
for j:=1 to 4 do
begin
if a[i, j] > b[i] then b[i] := a[i, j];
// находим максимальный элемент в каждой строке и записываем в b[1..3]
end;
end;
Max := b[1];
for i:=1 to 3 do if b[i] > Max then Max := b[i];
// Находим максимальный элемент из максимальных элементов
writeln (Max); // Выводим его на экран
END.