Предмет: Информатика,
автор: kljud
переведите из паскаля в питон пожалуйста
var
m: array [1..10] of integer;
max, k, i: integer;
begin
for i := 1 to 10 do
read(m[i]);
max := m[1];
k := 1;
for i := 2 to 10 do
if m[i] > max then
begin
k := 1;
max := m[i]
end
else
if m[i] = max then
inc(k);
write(k)
end.
restIess:
а есть просто задачка? Лень паскаль этот читать
Ответы
Автор ответа:
1
a = []
k = 0
for i in range(10):
a.append(int(input()))
max = a[0]
for i in range(1,10):
if a[i] > max:
max = a[i]
for i in range(10):
if a[i] == max:
k+=1
print(k)
Похожие вопросы
Предмет: Алгебра,
автор: oksikilnika
Предмет: Қазақ тiлi,
автор: dashagrebneva
Предмет: Химия,
автор: missqu
Предмет: Геометрия,
автор: Виктория10021999
Предмет: Математика,
автор: zhiyb228