Массивы

[ole4ka]

Массивы

Помогите!!!!

1.Ввести одномерный массив из N элементов и выполнить следующие действия.
Первый и последний элементы поменять местами.

2.Ввести одномерный массив из N элементов и выполнить следующие действия:
Всем нулевым элементам массива присвоить значение 100.

3.Ввести двухмерный массив А с MxN элементов и выполнить следующие действия
Найти количество элементов матрицы, значение которых больше значение первого элемента.

4.Ввести двухмерный массив А с MxN элементов и выполнить следующие действия:
Найти минимальный и максимальный элемент и поменять их местами.

Результат вывести на экран.

 

[ole4ka]

Поможить хто небудь!

 

[Vladimir_S]

Сожалею, но могу лишь повторить либо сослаться на свой же последний пост в теме http://www.tehnari.ru/f41/t51622/ в ответ на аналогичный запрос.

 

[shrek=)]

1.Ввести одномерный массив из N элементов и выполнить следующие действия. Первый и последний элементы поменять местами.

const
n=5;
var
a:array [1..n] of integer;
i,k:integer;
begin
writeln ('enter massiv');
for i:=1 to n do
read (a[i]);
k:=a[1];
a[1]:=a[n];
a[n]:=k;
for i:=1 to n do
write (a[i]:3);
readln
end.

 

[shrek=)]

2.Ввести одномерный массив из N элементов и выполнить следующие действия: Всем нулевым элементам массива присвоить значение 100.

const
n=5;
var
a:array [1..n] of integer;
i:integer;
begin
writeln ('enter massiv');
for i:=1 to n do begin
read (a[i]);
if a[i]=0 then a[i]:=100;
end;
for i:=1 to n do
write (a[i]:3);
readln
end.

 

[shrek=)]

3.Ввести двухмерный массив А с MxN элементов и выполнить следующие действия Найти количество элементов матрицы, значение которых больше значение первого элемента

const
n=5;
var
a:array [1..n,1..n] of integer;
i,j,k:integer;
begin
k:=-1;
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20);
write (a[i,j]:3);
if a[i,j]=a[1,1] then inc(k);
end;
writeln;
end;
writeln ('Количество элементов равных первому равно (первый элемент не считаем)',k);
readln
end.

 

[shrek=)]

4.Ввести двухмерный массив А с MxN элементов и выполнить следующие действия: Найти минимальный и максимальный элемент и поменять их местами.

const
n=5;
var
a:array [1..n,1..n] of integer;
i,j,max,min,maxi,mini,maxj,minj:integer;
begin
maxi:=0;
mini:=0;
maxj:=0;
minj:=0;
max:=-12;
min:=100;
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20);
write (a[i,j]:3);
if a[i,j]<min then begin min:=a[i,j]; mini:=i; minj:=j; end;
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; maxj:=j; end;
end;
writeln;
end;
a[mini,minj]:=max;
a[maxi,maxj]:=min;
writeln;
for i:=1 to n do begin
for j:=1 to n do begin
write (a[i,j]:3);
end;
writeln;
end;
readln
end.

 

[ole4ka]

Shrek спасибо огромное))))