1) вывести массив из n элементов ,найти среднее арифметическое элементов массива 2) дан массив из [10, -3, -5, 2, 5] найти наименьший элемент массива и его порядковый номер
print('N = ', end = '') N = int(input()) A = [] S = 0 for i in range(N): A.append(int(random()*(N*2+1)-N)) print(A[i],end=' ') S+=A[i] print("\nSr =",S/N)
a = [10, -3, -5, 2, 5]
Min = 0 j = 0 for i in a: if a[j] < a[Min]: Min = j j+=1 print("Min = ",a[Min],'[',Min,']')
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var n:=ReadInteger('n='); var a:=ArrRandom(n,-50,50); Writeln('Исходный массив'); a.Println; var se:=a.Where(x->x mod 3=0); if se.Count=0 then Writeln('В массиве нет элементов, кратных трем') else begin var b:=se.Max; var i:=0; while a[i]<>b do Inc(i); if i=n-1 then Writeln('Максимальный элемент - последний') else begin Writeln('Результирующий массив'); a[i+1]:=abs(a.Where(x->x<0).Sum); a.Println end end end.
m 8 5 n 3 ясно, что основание искомой с/с > 10. Проверим и удостоверимся, что в 11c|c действия выполняются верно. 11 c|c M=6 n = 4 ответ: основание системы 11, m=6, n=4
2. m m 65 n +2 n 4 4 m
5 5 4 2 4 очевидно, что основание искомой с/с > 6. Проверим по действиям в 7 с/с, при сложении в столбик, при m=3 и n=1 и удостоверимся, что всё верно. ответ: осн. с\с = 7, m=3, n=1
from random import random
print('N = ', end = '')
N = int(input())
A = []
S = 0
for i in range(N):
A.append(int(random()*(N*2+1)-N))
print(A[i],end=' ')
S+=A[i]
print("\nSr =",S/N)
a = [10, -3, -5, 2, 5]
Min = 0
j = 0
for i in a:
if a[j] < a[Min]:
Min = j
j+=1
print("Min = ",a[Min],'[',Min,']')