Переведите с паскаля ** питон Var a:array[1..20] of integer; i,min,ind:integer; begin...

+764 голосов
5.3m просмотров

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


Информатика (164 баллов) | 5.3m просмотров
Дан 1 ответ
+53 голосов

Опишите пожалуйста словами, что должен делать этот скрипт, просто я ни капельки не знаю Паскаль.

(622 баллов)