в День рождения! задача 11 класс

[qq2000]

1 Задача - Определить является ли линейная таблица симметричной?

2 Задача Если таблица симметрична, то каждый её элемент умножить на 2, иначе увеличить на 2.

11 класс, задача с помощью обычного массива, элементов 10 чтобы вводилось плиз.

Помогите очень прошу, завтра сдавать.

[VIK_aka_TOR]

линейная таблица - одномерный масив чтоль получается?...
симетрична... а какая ось симетрии .. приведи пример... таблицы и данных...

[qq2000]

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

линейная таблица - одномерный масив чтоль получается?...
симетрична... а какая ось симетрии .. приведи пример... таблицы и данных...

походу одномерный) ось относительно центра , например вводишь 10 элементов - 1 1 1 1 1 1 1 1 1 1 1 - значит симметрична
вводишь 2 5 4 6 7 8 9 9 9 0 2 и т.д. не симметрична


вот наш уровень такой( пример другой задачи) :

Program adasd; 

var 
   A:array[1..10]of integer; 
   c,i,min,nmin,nmax,max:integer; 

Begin 
  writeln('Замена минимального и максимального значении таблицы'); 
  for i:=1 to 10 do 
    begin 
      write('Введите ',i,'-ый элемент:'); 
      readln(A[i]); 
    end; 
  min:=A[1]; 
  nmin:=1; 
  for i:=2 to 10 do 
    if A[i]< min then 
      begin 
        min:=A[i]; 
        nmin:=i; 
      end; 
  max:=A[1]; 
  nmax:=1; 
  for i:=2 to 10 do 
    if A[i]> max then 
      begin 
        max:=A[i]; 
        nmax:=i; 
      end; 
  c:=min; 
  A[nmin]:=max; 
  A[nmax]:=c; 
  for i:=1 to 10 do 
    begin 
      write(i,'-ый элемент:'); 
      writeln(A[i]); 
    end; 
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[VIK_aka_TOR]

держи...

var
a: array [1..10] of integer;
n,i : integer;
flag: boolean;
begin
n:=10;
// ввод массива
for i:=1 to n do
  begin
    write('a[',i,']=');
    readln(a[i]);
  end;
// проверка на симетрию
flag:= true; 
for i:=1 to n div 2 do
if (a[i] <> a[n - i + 1]) then 
flag:= false; 

// действия по результатом выявления симметричности
if flag then
  begin
    writeln('Симметрична');
    for i:=1 to n do
    a[i]:= a[i]* 2;
  end
else
  begin
    writeln('Не симметрична');
    for i:=1 to n do
    a[i]:= a[i] + 2;
  end;
// вывод результата

for i:=1 to n do
write(a[i]: 3);  
end.

ну что... именинник... проставляешься иль как?))))

[qq2000]

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

держи...

var
a: array [1..10] of integer;
n,i : integer;
flag: boolean;
begin
n:=10;
// ввод массива
for i:=1 to n do
  begin
    write('a[',i,']=');
    readln(a[i]);
  end;
// проверка на симетрию
flag:= true; 
for i:=1 to n div 2 do
if (a[i] <> a[n - i + 1]) then 
flag:= false; 

// действия по результатом выявления симметричности
if flag then
  begin
    writeln('Симметрична');
    for i:=1 to n do
    a[i]:= a[i]* 2;
  end
else
  begin
    writeln('Не симметрична');
    for i:=1 to n do
    a[i]:= a[i] + 2;
  end;
// вывод результата

for i:=1 to n do
write(a[i]: 3);  
end.

ну что... именинник... проставляешься иль как?))))

спасибо конечно большое!!))) но мы такое не знаем еще
flag: boolean;
flag:= true;
flag:= false;
можно как-нибудь без этого?))

[VIK_aka_TOR]

держи без них...

var
a: array [1..10] of integer;
n,i, flag : integer;
begin
n:=10;
// ввод массива
for i:=1 to n do
  begin
    write('a[',i,']=');
    readln(a[i]);
  end;
// проверка на симетрию
flag:= 1; 
for i:=1 to n div 2 do
if (a[i] <> a[n - i + 1]) then 
flag:= 0; 

// действия по результатом выявления симметричности
if flag = 1 then
  begin
    writeln('Симметрична');
    for i:=1 to n do
    a[i]:= a[i]* 2;
  end
else
  begin
    writeln('Не симметрична');
    for i:=1 to n do
    a[i]:= a[i] + 2;
  end;
// вывод результата

for i:=1 to n do
write(a[i]: 3);  
end.

[qq2000]

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

держи без них...

var
a: array [1..10] of integer;
n,i, flag : integer;
begin
n:=10;
// ввод массива
for i:=1 to n do
  begin
    write('a[',i,']=');
    readln(a[i]);
  end;
// проверка на симетрию
flag:= 1; 
for i:=1 to n div 2 do
if (a[i] <> a[n - i + 1]) then 
flag:= 0; 

// действия по результатом выявления симметричности
if flag = 1 then
  begin
    writeln('Симметрична');
    for i:=1 to n do
    a[i]:= a[i]* 2;
  end
else
  begin
    writeln('Не симметрична');
    for i:=1 to n do
    a[i]:= a[i] + 2;
  end;
// вывод результата

for i:=1 to n do
write(a[i]: 3);  
end.

СПАСИБО БОЛЬШОЕ !!!!!! ОЧЕНЬ ПОМОГ!!!