Информатика, вопрос задал mexedov3211 , 7 лет назад

98 баллов Переаедите с паскаля на питон
Program zadbl;
uses crt;
var a,b,c,i,s:integer;
m:array[1..30] of integer;
begin 
s:=-1; 
for i:=1 to 30 do
 begin 
m[i]:=random(100);
 write(m[i]:3);
 end; 
for i:=1 to 28 do
 begin 
 if m[i]+m[i+1]+m[i+2]>s then
 begin   
a:=m[i]; 
 b:=m[i+1];
   c:=m[i+2]; 
  s:=a+b+c; 
  end; 
  end; 
 writeln('  a  b  c'); 
 write(a:3); 
  write(b:3); 
  write(c:3); 
  readln;
end.

Подробнее - на Znanija.com - https://znanija.com/task/9980706#readmore

Ответы на вопрос

Ответил raf1O5
0

from random import randint as random

m = [random(1,100) for i in range(1,30+1)]

s = -1

for i in range(0,30):

   print('{:3.0f}'.format(m[i]))

for i in range(0,28):

   if m[i]+m[i+1]+m[i+2]>s:

       a = m[i]

       b = m[i+1]

       c = m[i+2]

       s = a + b + c

print(' a b c')

print('{:3.0f}'.format(a))

print('{:3.0f}'.format(b))

print('{:3.0f}'.format(c))

Новые вопросы