Питон ! Считайте массив целых чисел и выведите его максимальный элемент, используя цикл for. На вход подается сначала n - количество элементов массива(n < 11), а затем сами элементы. Каждый новый элемент с новой строки. Sample Input:
4
10
31
11
78
Sample Output:
78

👇

Увидеть ответ

Ответ:

Oles1115

29.09.2021

(см. объяснение)

Объяснение:

Код, соответствующий вашему заданию:

a = []

N = int(input())

for i in range(N):

x = int(input())

a = a + [x]

print(max(a))

Оптимальный код решения задачи:

print(max([int(input()) for _ in range(int(input()))]))

Код, написанный на паскале:

ReadArrInteger(ReadInteger).Max.Print;

Как мне кажется для решения подобных задач паскаль является наилучшим вариантом.

Задание выполнено!

4,6(66 оценок)

Открыть все ответы

Ответ:

Марс2014

29.09.2021

Задача, аналогичная той, которую публиковали вчера. Только цикл repeat заменяем на while.

Сначала немного математики.
$\displaystyle a_n= \frac{n!}{(2n)!}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{2n}i}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{n}i\times\prod_{i=n+1}^{2n}i}=\frac{1}{\prod_{i=n+1}^{2n}i}; \quad n\in\mathbb N$
О модуле тут смысла нет говорить, поскольку все an - суть положительные величины на интервале (0;1).

uses Crt;

function ai(n:integer):real;
var
i:integer;
p:real;
begin
p:=1;
for i:=n+1 to 2*n do p:=p*i;
ai:=1/p
end;

var
i:integer;
eps,s,an:real;
begin
ClrScr;
Write('eps='); Read(eps);
s:=0; i:=1; an:=eps+1;
while an>=eps do begin
   an:=ai(i);
   if an>=eps then begin s:=s+an; Inc(i) end
end;
Writeln('s=',s);
ReadKey
end.

Тестовые решения:
eps=0.07
s= 5.8333333333E-01

eps=0.000001
s= 5.9229647667E-01

eps=1e-8
s= 5.9229653448E-01

Для контроля результата можно отметить, что сумма первых 1000 членов ряда равна приблизительно 5.922965365Е-01

Если раздражает наличие функции, можно и без нее:
uses Crt;

var
i,j:integer;
eps,s,an,p:real;
begin
ClrScr;
Write('eps='); Read(eps);
s:=0; i:=1; an:=eps+1;
while an>=eps do begin
    p:=1;
    for j:=i+1 to 2*i do p:=p*j;
    an:=1/p;
    if an>=eps then begin s:=s+an; Inc(i) end
end;
Writeln('s=',s);
ReadKey
end.

4,4(84 оценок)

Ответ:

dramidontova

29.09.2021

ответ:Доброго времени суток.

Очень не корректно поставлен вопрос. Что есть Текст? Это текстовый файл, строка, введенная пользователем, еще что-то? Думайте, прежде чем спросить, и, скорее всего, получите нормальный ответ.

Поэтому, поскольку нет конкретики, будем считать текстом строку, введенную пользователем.

Write('Введите текст : ');

ReadLn(S);

В переменной S теперь находится некоторый текст. Начнем с ним работать. Будем считать словом последовательность символов, ограниченных с обеих сторон пробелами. Сначала сделаем копию введенного текста.

S1 := ' ' + S + ' '; {чтобы не потерять первое и последнее слова}

А дальше,

N := 0; {счетчик слов Мама}

while Pos(' Мама ', S1) > 0 then begin

Delete(S1, Pos(' Мама ', S1)+1, 4);

N := N + 1;

end;

Поскольку может в тексте быть и "мама", то повторим

while Pos(' мама ', S1) > 0 then begin

Delete(S1, Pos(' мама ', S1)+1, 4);

N := N + 1;

end;

Вот и все. Осталось вывести результат.

WriteLn('Во ввденном тексте слово "мама" встречается ', N, ' раз');

Удачи!

PS Можно было бы не делать второй проход, если предварительно преобразовать введенный текст к одному регистру, а затем искать подстроку в этом регисте.

4,4(24 оценок)

Это интересно:

Образование-и-коммуникации

25.10.2021

Секреты общения с глухими людьми: как научиться понимать и быть понятым...

Семейная-жизнь

08.02.2021

Остановите драку! Как сделать так, чтобы ваш малыш перестал драться...

Компьютеры-и-электроника

09.03.2021

Изучаем, как создать общедоступный календарь в Outlook...

Компьютеры-и-электроника