---
title: "Паскаль"
description: "Дано число k и челочисленный массив размера N. Поменять местами первую / последнюю и k-ю серии масси..."
author: "dan_ntu"
published: "2011-11-24T01:01:37+00:00"
modified: "2011-11-24T01:02:35+00:00"
locale: "ru"
canonical_url: "https://yvision.kz/post/paskal-208262"
markdown_url: "https://yvision.kz/post/paskal-208262/markdown"
site_name: "Yvision.kz"
---

# Паскаль

> Дано число k и челочисленный массив размера N. Поменять местами первую / последнюю и k-ю серии масси...

Дано число k и челочисленный массив размера N. Поменять местами первую / последнюю и k-ю серии массива. Если серии в массиве меньше k , то вывести массив без изменений.

> program esep1; uses crt; var n,k,x,i:integer; a: array[1..100] of integer; begin clrscr; write('Vvedite k->'); readln(k); write('Vvedite n->'); readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; if(n<k) then begin writeln('Massiv bez izmeni'); for i:=1 to n do write('a[',i,']=',a[i],' '); end else begin x:=a[1]; a[1]:=a[n]; a[n]:=x; a[k]:=k; writeln('Massiv s izmenoi'); for i:=1 to n do write('a[',i,']=',a[i],' '); end; readkey; end.

---

Source: [https://yvision.kz/post/paskal-208262](https://yvision.kz/post/paskal-208262)