Написать 2 программы:

+ 0 -

Zemfiraa33

29 нояб. 2014 г., 16:42:10 (9 лет назад)

program z1;
var ar: array of integer;
f, l, i, N: integer;
begin       
readln(N);       
setlength(ar, N+1);       
for i:=1 to N do read(ar[i]);       
f:=-1;                
for i:=1 to N do begin               
if ar[i]<0 then begin                       
f:=i;                       
break;               
end;       
end;       
if f>0 then begin               
for i:=N downto 1 do begin                       
if ar[i]<0 then begin                               
l:=i;                               
break;                       
end;               
end;               
write(f,' ', l);       
end       
else write('No');
end.

program z2;
var ar: array of integer;
i, N: integer;
otv: boolean;
begin       
readln(N);       
setlength(ar, N+1);       
for i:=1 to N do read(ar[i]);       
for i:=1 to N div 2+1 do begin               
 if ar[i]<>ar[N-i+1] then begin otv:=true; break; end;       
end;       
if otv=true then write('No')       
else write('Yes');end.

+ 0 -

Alenasuhanova20

29 нояб. 2014 г., 17:13:10 (9 лет назад)

const
  n = 10;

var
  a: array[1..n] of integer;
  i, p, q: integer;
  flag: boolean;

begin
  {1. Инициализируем массив}
  Randomize;
  Write('Элементы массива: ');
  for i := 1 to n do
  begin
    a[i] := Random(101) - 50;
    Write(a[i]:5)
  end;
  Writeln;
  {2. проверяем элементы массива на наличие отрицательных значений}
  flag := true;
  i := 1;
  {2.1 Ищем первое по порядку отрицательное }
  while flag and (i <= n) do
  begin
    flag := (a[i] >= 0);
    i := i + 1
  end;
  if flag then Writeln('В массиве нет отрицательных элементов')
  else begin
    p := i - 1;
    {2.1 Ищем последнее по порядку отрицательное }
    i := n;
    flag := true;
    while flag and (i > p) do
    begin
      flag := (a[i] >= 0);
      i := i - 1
    end;
    if flag then Writeln('В массиве один отрицательный элемент с номером ', p)
    else
      Writeln('Отрицательные элементы лежат в промежутко от ', p, ' до ', i + 1)
  end
end.

Тестовое решение:

Элементы массива:    17  -45  -29  -30   32  -12   29  -39   20    6
Отрицательные элементы лежат в промежутке от 2 до 8

const
  nm = 50;{максимальная длина массива}

var
  i, n, n2: integer;
  a: array[1..nm] of integer;
  flag: boolean;

begin
  { 1. Инициализация массива }
  Write('Введите количество элементов в массиве: ');
  Readln(n);
  Write('Введите элементы массива через пробел ');
  for i := 1 to n do Read(a[i]);
  { 2. Проверка симметричности массива }
  flag := true;
  i := 1;
  n2 := n div 2;
  while flag and (i <= n2) do
  begin
    flag := (a[i] = a[n - i + 1]);
    i := i + 1
  end;
  if flag then Writeln('Массив является симметричным')
  else Writeln('Массив не является симметричным')
end.

Тестовое решение:

Введите количество элементов в массиве: 8
Введите элементы массива через пробел 1 7 3 4 4 2 7 1
Массив не является симметричным

Введите количество элементов в массиве: 7
Введите элементы массива через пробел 8 4 9 1 9 4 8
Массив является симметричным

+ 0 -

Rauansmile2001

29 нояб. 2014 г., 17:55:54 (9 лет назад)

Ну и терминология! Что за "барьер" такой?

+ 0 -

DeadKitchenLamp

29 нояб. 2014 г., 18:53:09 (9 лет назад)

Барьерный» алгоритм используется для поиска в неупорядоченном массиве. То есть в массиве мы ставим шаблон

+ 0 -

Pavshan

29 нояб. 2014 г., 21:23:46 (9 лет назад)

В массиве находятся значения элементов. Как там можно что-то еще "ставить"?

+ 0 -

Artchris17

29 нояб. 2014 г., 22:20:51 (9 лет назад)

Дурят детям головы околонаучными терминами... лучше юы алгоритмизацию за потраченное на эту чепуху время объясняли.

+ 0 -

абвгдеёитр

29 нояб. 2014 г., 23:46:49 (9 лет назад)

Полностью согласна) но ничего уж не поделаешь