Массивы в Delphi 7

[Gosser]

Здравствуйте, уважаемые программеры!!
Задали задачки, помогите пожалуйста сделать...

1. Дан массив чисел а1,...,аn. Выяснить, имеются ли в данном массиве 2 идущих подряд положительных элемента. Подсчитать количество таких пар. (Тут често говоря не совсем понял, а что могут быть и отрицательные?? И какой массив - не уточняют, одномерный или двумерный...)

2. Отобразить элементы массива относительно центра a1 ↔ an, a2↔ an-1, a3↔ an-2,…)

Для меня немного туманно, я только начал изучать языки высокого уровня... Если не сложно, помогите)

[Stilet]

И какой массив - не уточняют, одномерный или двумерный...)

Как это не уточняют? Там же написано а1,...,аn - это одномерный.
Ну например так:

var cnt,i:integer;a:array[0..1000] of integer;
begin
// Набиваем массив
 for i:=0 to n do begin
  a[i]:=20-random(20);
 end;
...
 for i:=1 to n do begin
  if (a[i]=a[i-1])and(a[i]>0)and(a[i-1]>0) then inc(cnt);
 end;
writeln(cnt);

end.

вот то cnt и должно дать тебе кол-во таких пар

p.s. - не оптимально но надеюсь ниче не пропустил

[Gosser]

Спасибо, а почему массив до 1000? Если одномерный, то тогда до 10 кажется)

[Fantazerishka]

Сообщение от Gosser

Спасибо, а почему массив до 1000? Если одномерный, то тогда до 10 кажется)

Понятие одномерный не подразумевает его размерность, а скорее положение в пространстве... Эту цифру (1000 или 10 или 13122) вы указываете сами...

[ilgar-90]

procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,p,k:integer; z:string;
a:array[1..16,1..16] of integer;
begin
for i:=1 to 16 do begin
for j:=1 to 16 do begin
a[i,j]:=StrToInt(StringGrid1.cells[i,j]);


end;
end;

for j:=1 to 16 do begin
for i:=1 to 16 do begin
StringGRid2.Cells[i,j]:=StringGrid1.Cells[i,j];
end;
end;

for j:=1 to 16 do begin
for i:=1 to 16 do begin
k:=StrToInt(StringGrid2.cells[i,j]);
if k>192 then begin
z:=StringGrid2.Cells[i,j];
StringGrid2.Cells[i,j]:='193';
StringGrid2.Cells[i+1,j]:=z;
end;
end;
end;
end;
end;




for j:=1 to 16 do begin
s:=193;
for i:=1 to 16 do begin
if a[i,j]=a[i+1,j] then begin
s:=s+1;
StringGrid2.cells[i,j]:=IntToStr(s);
if a[i-1,j]=a[i,j] then begin
StringGrid2.Cells[i-1,j]:='';
end;
end;
if a[i,j]<>a[i+1,j] then begin
StringGrid2.Cells[i,j]:=IntToStr(a[i,j]);
end;
end;
end;
for p:=1 to s do begin
for j:=1 to 16 do begin
for i:=1 to 16 do begin
If StringGrid2.Cells[i,j]='' then begin
z:=StringGrid2.Cells[i,j];
StringGrid2.Cells[i,j]:=StringGrid2.Cells[i+1,j];
StringGrid2.Cells[i+1,j]:=z;
end;
end;
end;
end;


Вот к примеру этот код для двумерного массива. Находит в каждой строке повторяющиеся цифры, и выводит во второй массив Счетчик и само число. Признаком счетчика является число больше 192. Т.е. строка
1 2 2 2 3 3 4 6 5 заменяется строкой 1 195 2 194 3 4 6 5.

[Gosser]

Здравствуйте, всем спасибо!)) Реализовал так:
(количество положительных пар записывается в memo

Procedure TForm1.Button1Click(Sender:TObject);
var
n,i:Integer;
a: array[1..10] of Integer;
begin
n:=StrToInt(Edit1.Text);
  for i:=1 to n-1 do
    a[i]:=StrToInt(StringGrid1.Cells[i, 1]);
  for i:=1 to n-1 do
    a[i+1]:=StrToInt(StringGrid1.Cells[i+1,1]);
  for i:=1 to n-1 do
    if (a[i]>0) and (a[i+1]>0) then
    begin
      MessageDlg('Пара чисел '+'['+IntToStr(a[i])+' , '+IntToStr(a[i+1])+']'+' с индексами '+inttostr(i)+' и '+inttostr(i+1)+' удовлетворяют условию(>0)',mtInformation,[mbOk],0);
    end
    else
    MessageDlg('Пара чисел с индексами '+IntToStr(i)+' и '+inttostr(i+1)+' не удовлетворяют условию(>0)',mtInformation,[mbOk],0);

end;

Procedure TForm1.Button2Click(Sender:TObject);
var
n,i:Integer;
a: array[1..10] of Integer;
begin
Memo1.Clear;
Memo1.Lines[0]:='Результаты:';
n:=StrToInt(Edit1.Text);
  for i:=1 to n-1 do
    a[i]:=StrToInt(StringGrid1.Cells[i, 1]);
  for i:=1 to n-1 do
    a[i+1]:=StrToInt(StringGrid1.Cells[i+1,1]);
  for i:=1 to n-1 do
    if (a[i]>0) and (a[i+1]>0) then
Memo1.Lines.Append('Числа '+'['+IntToStr(a[i])+', '+IntToStr(a[i+1])+']'+' с индексами '+IntToStr(i)+' и '+IntToStr(i+1));

end;

end.

[Gosser]

Мне опять нужен ваш совет, уважаемые форумчане!
Циклический сдвиг элементов двумерного массива влево на 1 элемент

у меня пока пусто совсем(( как можно это реализовать? Циклический, насколько я понимаю, это сдвиг без потери... т.е. a1,a2,a3...an -> a2,a3,...an,a1 ?

Массив вводится в StringGrid1

procedure TForm1.Button1Click(Sender:TObject);
var
x,i,n:Integer;
begin
  if Edit1.Text='' then
  begin
    MessageDlg('нет N',mtInformation,[mbOK],0);
    Edit1.SetFocus;
  end
  else
 begin