URGENTLY PLEASE
1. Дан целочисленный массив из 100 элементов. Элементы массива могут принимать целые значения от -10 000 до 10 000 включительно. Опишите алгоритм, который находит сумму элементов массива, которые двузначны и не чётны, а затем заменяет элементы, которые оканчиваются на 7 на число, равное найденному значению. Гарантируется, что такие элементы в массиве есть. В качестве результата необходимо вывести изменённый массив, каждый элемент выводится с новой строчки.
# допускается также использовать
# две целочисленные переменные m,k
a = []
n = 100
for i in range(n):
a.append(int(input()))
2. Дан целочисленный массив из 100 элементов. Элементы массива могут принимать целые значения от -10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит минимальный из элементов массива, которые не оканчиваются на 9 или находятся в интервале [200; 600], а затем увеличивает элементы, которые чётны на число, равное найденному значению. Если таких элементов нет, то считать минимум равным 0. В качестве результата необходимо вывести изменённый массив, каждый элемент выводится с новой строчки.
const n=2;
Var a,b,c,d,e,f,p:integer;
Begin
Write ('Введите число a '); Read(a);
Write ('Введите число b '); Read(b);
Write ('Введите число c '); Read(c);
Write ('Введите число d'); Read(d);
Write ('Введите число e '); Read(e);
Write ('Введите число f '); Read(f);
p:=0;
If a mod n = 0 Then P:=p+1;
If b mod n = 0 Then P:=p+1;
If c mod n = 0 Then P:=p+1;
If d mod n = 0 Then P:=p+1;
If e mod n = 0 Then P:=p+1;
If f mod n = 0 Then P:=p+1;
Write ('количество четных чисел = ',p);
end.
Вот так, программа работает.