Меню сайта

Задача №64

Произвестиперестановку массива.

uses crt-

varm,x,i,k:integer-

a:array[1..10000]of integer-

a2:array[1..10000]of integer-

begin-

clrscr-

writeln(‘Введите размер массива a(m)’)-

readln(m)-

writeln(‘Введите число x’)-

readln(x)-

FOR i := 1 TO m do

begin

clrscr-

writeln(‘Введите элементы массива a(m)’)-

readln(a[i])-

end-

clrscr-

writeln(‘Введенный массив’)-

FOR i := 1 TO m do

begin

writeln(a[i])-

IF a[i] &lt- x THEN

-begin

-k := k + 1- a2[k] := a[i]-

end-

end-

FOR i := 1 TO m do

begin

IF a[i] = x THEN

-begin

-k := k + 1- a2[k] := a[i]-

-end-

-end-

FOR i := 1 TO m do

begin

IF a[i] &gt- x THEN

begin

k := k + 1- a2[k]:= a[i]

end-

end-

writeln(‘Сформированный массив’)-

FOR i := 1 TO m do

begin

writeln (a2[i])-

end-

end.

Категория: Массивы | Дата: 07.12.12

Меню раздела
Блок