1 Задача :Определить является ли линейная таблица симметричной?
2 Задача :Если таблица симметрична, то каждый её элемент умножить на 2, иначе увеличить на 2.
11 класс, задача с помощью обычного массива, элементов 10 чтобы вводилось плиз.
Помогите очень прошу, завтра сдавать.Добавлено (03.02.2012, 00:19)
---------------------------------------------
ось относительно центра , например вводишь 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.
