Массивы

[ДваДваВо7]

Есть пример моей задачи....

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  InOut;

type
 TVector1 = array of Integer;
 TVector2 = array [1..5] of Integer;
 TMatrix1 = array of TVector1;
 TMatrix2 = array of array of Integer;
var
a,b: TVector1;
a1,b1: TVector2;
c: TMatrix1;
d: TMatrix2;
i,j: Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  SetConsoleTitleCyr('Лабораторная работа №4: Структура данных.Массивы');
  SetConsoleCP_1251;
  Randomize;
  SetLength(a,10);
  WriteLn ('Массив a:');
  for i := 0 to High(a) do
begin
  a[i]:=-10+Random(21);
  Write(a[i]:5);
end;
WriteLn;
b:=a;
b[3]:=777;
WriteLn ('Массив b:');
for i := 0 to High(b) do
  WriteLn(b[i]:5);
  WriteLn;
  WriteLn ('a[3] =',a[3]);
 b:= Copy(a,3,2);
 b[0]:=555;
WriteLn ('Массив b:');
 for i := 0 to High(b) do
  WriteLn;
  WriteLn (b[i]:5);
WriteLn;
  WriteLn ('a[0] =',a[0]);
  SetLength(a,7);
  WriteLn('Массв а:');
  for i := 0 to high(a) do
    Write(a[i]:5);
    WriteLn;
    SetLength(b,5);
  WriteLn('Массв b:');
  for i := 0 to High(b) do
  WriteLn (b[i]:5);
  WriteLn;
  WriteLn('Массив а1:');
  for i := 1 to 5 do
    begin
  a1[i]:=-10+Random(21);
  Write(a1[i]:5);
  end;
  Writeln;
  b1:=a1;
  b1[3]:=777;
  WriteLn('Массив b1:');
  for i := 1 to 5 do
  WriteLn (b[i]:5);
  WriteLn;
  WriteLn('a1[3] = ',a1[3]);
  SetLength (c,3,4);
 WriteLn('Массив c:');
 for i := 0 to high(c)do
   begin
   for j := 0 to high(c[i]) do
     begin
       c[i,j]:= -10 + Random(21);
       Write (c[i,j]:5);
       end;
    WriteLn;
    end;
   b:= Copy(c[1]);
   WriteLn('Массив b:');
   for i := 0 to high(b) do
     WriteLn(b[i]:5);
     WriteLn;
     SetLength(d,5);
     writeln('Массив d;');
     for i := 0 to high(d) do
       begin
         SetLength(d[i],i+1);
         for j := 0 to High (d[i]) do
           begin
             d[i,j]:=-10 + Random(21);
             Write(d[i,j]:5);
         end;
         WriteLn;
       end;
   d[3,10]:=666;
   WriteLn('Массив d:');
   for i := 0 to high (d) do
     begin
       for j := 0 to High (d[i]) do
         Write (d[i,j]:5);
         WriteLn;
     end;
     ReadLn;
end.

как по этому примеру сделать это :

Разработать программу, позволяющее в двумерном массиве определить количество и положение элементов,не больше заданного пользователем числа и сумма индексов которых четна.Обеспечить бессбойную работу программы и возможность выполнения требуемых действий несколько раз без перезапуска программы.

Что то я вообще запутался и понять ни че не могу...помогите(((((

[pj-infest]

мне кажетса, чтоби несколько раз виполнить програму, можна использоватса оператором перехода,

но лутше всю програму розбить на процедури, таким образом несколько раз можно будет виполнить, просто повторнно визиваючи набор нужних процедур.

[ДваДваВо7]

Сообщение от pj-infest

мне кажетса, чтоби несколько раз виполнить програму, можна использоватса оператором перехода,

но лутше всю програму розбить на процедури, таким образом несколько раз можно будет виполнить, просто повторнно визиваючи набор нужних процедур.

ух сложно то все как(((((А поп роще че нибудь можете сказать или показать7??А то вообще ппц

[GetMax]

Лично мое мнение,что бы программа выполнялась несколько раз можно попробывать использовать цикл Repeat-Until. Выходом из цикла может служить нажатие какой-либо клавиши

[Stilet]

О Ужос! Что тут сложного?

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a:array[1..10,1..10] of integer;
 q,w,n,kolvo:integer;
 c:char=' ';
begin
 for q:=Low(a) to high(a) do  begin
  for w:=Low(a[q]) to high(a[q]) do  begin
    a[q,w]:=random(100);write(a[q,w]:5);
  end; writeln;
 end;
 writeln;
 repeat
   Write('Kol-vo:');Readln(n);kolvo:=0;
   for q:=Low(a) to high(a) do  begin
    for w:=Low(a[q]) to high(a[q]) do  begin
      if a[q,w]<=n then begin write('(',q,w,')  ');inc(kolvo);end;
    end;
   end;
   writeln('kolvo=',kolvo);
   writeln('repeat? Y\N');
   readln(c);

 until c='n';
  { TODO -oUser -cConsole Main : Insert code here }
end.

Зачем усложнять все.

[Niro]

repeat
.............
readln(chislo);
for i:=1 to n do
  for j:=1 to m do
   begin
     if (massiv[i,j]<chisla) and ( (i+j) mod 2=0) then 
                                                                begin 
                                                                  k:=k+1; 
                                                                  writeln('Polojenie (',i,';',j,')'); 
                                                                end;
   end;
writeln('число найденный элементов',k);
writeln('Выйти?,y/n');
readln(otv);
until otv='no';

код не проверял