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