Паскаль. Добавление элементов массива

[mira95]

Условие: Сформировать массив a[1..n] случайным образом. Определить, содержит ли он заданное число. Если элемент найден, то вставить перед ним элемент вдвое больше найденного. Поиск осуществить методом линейного поиска.

П.с.: я гуглила и пыталась найти что-то похожее, но варианты со всякими там записями, прцедурами, типизированными файлами не подходят. Нужно принципиально вставить сюда кусочек кода, который будет работать. без перечисенного мною. Я знаю, что применяется цикл down to, но как, куда, что я не разбираюсь, я запуталась, буду рада помощи. Заранне спасибо. То, что у меня получилось, просто находит элемент, но ничего не добавляет. Вот сам код:

program poisk1;
uses crt;
const n=10;
var a: array[1..10] of integer;
i,x: integer; f:boolean;
begin
randomize;
for i:=1 to 10 do  begin
a[i]:=random(101);
writeln(a[i]);     end;
write('Задайте искомый элемент ');
readln(x);

f:=false;
i:=1;
while (i<=n) and not f do begin
 if a[i]=x then f:=true
 else i:=i+1;
 end;
 if f then writeln('Нашли элемент с номером ',i)
 else writeln('Такого элемента нет');
 end.

[newerow1989]

program poisk1;
uses crt;
const n=10;
var a: array[1..10] of integer;
    i,x: integer;
begin
   randomize;
   for i:=1 to 10 do
   begin
      a[i]:=random(101);
      writeln(a[i]);
   end;
   write('Задайте искомый элемент ');
   readln(x);
   For i:=1 to 10 do
   begin
      If a[i]=x then
         Write(2*x,'  ');
      Write(a[i],'  ');
   end;
   Writeln;
   Readln;
end.

Сойдет?

Кстати, динамически изменить массив уже нельзя, если a: array[1..10] of integer;

А вот так динамически:

var a: array of integer;
    i,j,x,n: integer;
begin
   randomize;
   write('n = ');
   readln(n);
   SetLength(a,n);
   for i:=0 to n-1 do
   begin
      a[i]:=random(101);
      writeln(a[i]);
   end;
   write('Задайте искомый элемент ');
   readln(x);
   For i:=n-1 downto 0 do
      If a[i]=x then
      begin
         n:=n+1;
         SetLength(a,n);
         For j:=n-1 downto i+1 do
            a[j]:=a[j-1];
         a[i]:=2*x;
      end;
   For i:=0 to n-1 do
      Write(a[i],'  ');
   Writeln;
   Readln;
end.

Сойдет?

[mira95]

Первый вариант ничего так, но не факт, что прокатит, а что там с else , ну т.е. можно сделать так чтоб если элемент не нашли, то выводит сообщение об ошибке или добавляя этот writeln ,pascal так и будет выделываться что мол "нельзя ставить точку с запятой", а когда убирается, говорить "ожидалась точка с запятой"?

Тема все еще в силе. Жду предложений, всем еще раз большое спасибо, кто постарался помочь

[min@y™]

А без музейного турбопаскакаля никак нельзя?

[mira95]

В том то и дело, что задача на Паскале :/
И я кажется нашла примерно какой она должна быть, что-то в этом духе, только числа рандомные мы заранее не знаем, перед каким именно элементом будем вставлять элемент, который в 2 раза больше того, который мы ищем. И должен выдавать сообщение, мол "Такого элемента нет", если его не нашли:

var i,n,k,m:longint;
    a:array [1..101] of longint;
begin
  readln(n);      {читаем длинну массива}
  for i:=1 to n do       {и сам массив}
    read(a[i]);
  readln(k);  
  readln(m); 
  for i:=n+1 downto k+1 do {сдвигаем элементы с N до K вправо}
    a[i]:=a[i-1];                   {на одну позицию}
  a[k]:=m; {записываем новое число в A[k]}
  for i:=1 to n+1 do
    write(a[i],' ');
  readln;
end.

[min@y™]

В том то и дело, что задача на Паскале :/

а чем это обусловлено?
кстати, искомое число может встречаться в массиве неоднократно.

[mira95]

Предметом. "Теория Алгоритмов"-все задачи по этому предмету решаем именно на Паскале :/

[min@y™]

"Теория Алгоритмов"-все задачи по этому предмету решаем именно на Паскале :/

Чо, неужели вот прям на этом паскале??!!



На delphi/lazarus вам лабы делать запретили? Или вы не спрашивали?

[mira95]

Паскаль АБЦ/Турбо Паскаль, для Делфи существует отдельный предмет :/ по этому же еще и отчеты защищаем

[min@y™]

какой кошмар.
в какой стране находится твоё учебное заведение?