var
arr:array[1..1000] of integer;
i,N:integer;
max:integer;
begin
max:=1;
write('Укажите кол-во эл-ов - ');
read(N);
for i:=1 to N do//Присваивание и вывод массива
begin
arr[i]:=1+random(100);
write(arr[i],' ');
if arr[i]>max then max:=arr[i];
end;
writeln;
writeln('Максимальный эл-т - ',max);
for i:=1 to N do//Увеличение чет. эл-ов
begin
if arr[i] mod 2=0 then arr[i]:=arr[i]+max;
write(arr[i],' ');
end;
end.
Объяснение:
ответ: См. снимки экрана (код в объяснении)
Объяснение:
Первая программа:
from random import randint
def geo_mean(arr):
m = 1
for x in arr:
m *= x
res = m ** (1 / len(arr))
return res
def even_numb(arr):
sum = 0
for x in arr:
if not x % 2:
sum += x
return sum
res = m ** (1 / len(arr))
return res
arr = []
for i in range(50):
arr.append(randint(1, 10)) # Геренрирование случайных чисел
print(arr, '\n')
print("G =", geo_mean(arr)) # Среднее геометрическое
if even_numb(arr) < 240: # Сумма четных чисел
print("Сумма четных элементов равна", even_numb(arr))
Вторая программа:
def numb_words(s):
s = s.split()
l = len(s)
if l >= 3:
return True
def numb_letters(a):
return len(a) - a.count(' ')
a = input("Введите фразу: ")
if (numb_words(a)):
if numb_letters(a) < 10:
print("Хорошо")
else:
print("Не хорошо")
Pascal
var
name_file: String;
begin
writeln('Введите имя файла');
readln(name_file);
writeln(name_file, '.exe');
readln;
end.