Переведите из паскаля в питон m: array [1..10] of - вопрос №15525738110 от knowyourmemesboy 12.04.2022 05:10

Question

Информатика: Переведите из паскаля в питон m: array [1..10] of integer;max, k, i: integer;beginfor i := 1 to 10 doread(m[i]);max := m[1];k := 1;for i := 2 to 10 doif m[i] max thenbegink := 1;max := m[i]endelseif m[i] = max theninc(k);write(k)end.​

knowyourmemesboy · Answer

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)

Переведите из паскаля в питон m: array [1..10] of integer;max, k, i: integer;beginfor i := 1 to 10 doread(m[i]);max := m[1];k := 1;for i := 2 to 10 doif m[i] > max thenbegink := 1;max := m[i]endelseif m[i] = max theninc(k);write(k)end.​

Переведите из паскаля в питон
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.