import random
A = []
for i in range(15):
A.append(random.randrange(-50,50))
print(A)
pr = 1
for i in range(len(A)):
pr*= A[i]
print("Произведение всех элементов равно: ", pr)
ko = 0
for i in range(len(A)):
if A[i] < 0:
ko += 1
print("Количество отрицательных элементов: ", ko)
sn = 0
nch = 0
for i in range(15):
if A[i] % 2 != 0:
sn+= A[i]
nch += 1
if nch == 0:
print("NO")
else:
sr = sn / nch
print("Среднее арифметическое:", end=" ")
print(float('{:.2f}'.format(sr)))
print("Положительные, которые оканчиваются на 8:", end= " ")
k8 = 0
k93 = 0
for i in range(len(A)):
if A[i] > 0 and A[i] % 10 == 8:
k8 += 1
print(A[i],end=" ")
if k8 == 0:
print("NO",sep=" ")
print("Числа, которые делятся на 3, но не на 9:")
for i in range(len(A)):
if A[i] % 3 == 0 and A[i] % 9 != 0 and A[i] > 0:
k93+=1
print(A[i],end=" ")
if k93 == 0:
print("NO")
uses Crt;
const m=5;
n=6;
type Mat=array[1..m, 1..n] of real;
var A: Mat;
i,j: integer;
frc: real;
flag: boolean;
begin
ClrScr;
Randomize; {Датчик СЧ}
for i:=1 to m do {Цикл ввода и вывода массива}
begin
for j:=1 to n do
begin
A[i,j]:=(10+random(70))/100;
Write (A[i,j]:6:2);
end;
WriteLn;
end;
for i:=1 to m do {Поиск}
begin
flag:=false;
for j:=1 to n do
begin
frc:=frac(A[i,j]);
if frc>0.55 then flag:=true;
end;
if flag then Writeln('‘Строка: ', i);
end;
if flag=false then WriteLn('Не найдено!');
ReadLn; {Ожидание нажатия ENTER}
end. f