Program ilived; type lol=array[1..40] of 10..50; var L:lol;i, aux:integer; begin for i:=1 to 40 do begin readln(L[i]); end; aux:=L[1]; L[1]:=L[40]; L[40]:=aux ;for i:=1 to 40 do write(L[i],' '); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку