Помогите в ДР плиз!

Q

qqshka

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

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

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

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

qqshka

Guest
ось относительно центра , например вводишь 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);
end;
min:=A[1];
nmin:=1;
for i:=2 to 10 do
if A< min then
begin
min:=A;
nmin:=i;
end;
max:=A[1];
nmax:=1;
for i:=2 to 10 do
if A> max then
begin
max:=A;
nmax:=i;
end;
c:=min;
A[nmin]:=max;
A[nmax]:=c;
for i:=1 to 10 do
begin
write(i,'-ый элемент:');
writeln(A);
end;
End.
 
Сверху