---
title: "Паскаль"
description: "а(10) сандар тизбегин еки массивке болиндер, олардын бириншисине жуп номерли элементтерди жазу, ал е..."
author: "dan_ntu"
published: "2012-03-12T02:14:09+00:00"
modified: "2012-03-12T02:14:44+00:00"
locale: "ru"
canonical_url: "https://yvision.kz/post/paskal-239331"
markdown_url: "https://yvision.kz/post/paskal-239331/markdown"
site_name: "Yvision.kz"
---

# Паскаль

> а(10) сандар тизбегин еки массивке болиндер, олардын бириншисине жуп номерли элементтерди жазу, ал е...

а(10) сандар тизбегин еки массивке болиндер, олардын бириншисине жуп номерли элементтерди жазу, ал екиншисине так номерли элементтерди жазу.

Program a10_zhup;

uses crt;

const n=10;

var a,b,c:array[1..n] of integer;

n1,n2:integer;

i:integer;

begin

clrscr;

n1:=0; n2:=0;

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

for i:=1 to n do

if (i mod 2=0) then

begin

n1:=n1+1;

b[n1]:=a[i];

end

else

begin

n2:=n2+1;

c[n2]:=a[i];

end;

for i:=1 to (5) do

write('b[',i,']=',b[i],' ');

writeln;

for i:=1 to 5 do

write('c[',i,']=',c[i],' ');

readln;

end.

---

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