Var a: array [1..10] of integer; i,k,m: integer; begin for i: = 1 to 10 do a[i]: = random(0,100); writeln(a); m: =a[1]; for i: =2 to 10 do if a[i]< m then m: =a[i]; m: =m*6; for i: = 1 to 10 do a[i]: = a[i]-m; writeln(a); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
