Одномерные массивы в Паскале

Posted by obzor under Delphi

Задача: Дан массив Х целых чисел. Вывести в порядке возрастания все числа стоящие на четных местах и встречающиеся более двух раз.

Stilet

program Project1;
const nn=10;
type arr=array[1..nn] of integer;
var x,y:arr;
  n:integer;

function Count(v:integer):Integer;var i,n:integer;
begin
  n:=0;
  for i:=1 to nn do if x[ i]=v then inc(n);
  Count:=n;
end;

procedure newarr; var j,i:integer; ok:boolean;
begin
  n:=1;
  for i:=1 to nn do if (Count(x[ i])>2) and odd(i) then begin
    ok:=true;
    for j:=1 to n do if y[j]=x[ i] then begin ok:=false; break; end;
    if ok then begin    y[n]:=x[ i];    inc(n); end;
	end;

end;

Procedure Sort; var v,i,j:integer;
begin
  for i:=1 to n do
   for j:=1 to n do
     if y[ i]>y[j] then begin
       v:=y[ i];
       y[ i]:=y[j];
       y[j]:=v;
    end;
end;

procedure outme(a:arr;k:integer); var i:integer;
begin
  for i:=1 to k do write(a[ i]:2); writeln;  writeln;
end;

procedure inme; var i:integer;
begin
  for i:=1 to nn do x[ i]:=random(5);
end;

begin
 inme; outme(x,nn); newarr; outme(y,n); Sort; outme(y,n); readln;
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)