Переведите с паскаля на питон
Var a:array[1..20] of integer;
i,min,ind:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(100)+100;
write(a[i]:4);
end;
writeln;
min:=a[1]+a[2];
for i:=2 to 19 do
if a[i]+a[i+1] begin
min:=a[i]+a[i+1];
ind:=i;
end;
write('Сумма минимальна между ',ind,' и ', ind+1, ' элементом');
end.
137
234
Ответы на вопрос:
Популярно: Информатика
-
travisbeats22.05.2021 00:57
-
danilmuratov20p02c8m11.08.2021 14:28
-
marinatroshina05.04.2022 17:57
-
долма110.11.2022 16:39
-
Liza20001111109.11.2021 02:15
-
blaccyee066625.05.2020 12:09
-
elnur2211.04.2020 09:27
-
ДарьяГарушева1112.04.2022 10:49
-
linagalkinaa31.12.2021 13:49
-
Andriy010113.10.2021 01:15