Массивы (одномерный и двумерный)

[Slezinka]

Очень нужна помощь...зашла в тупик с этим паскалем. Не могу сделать две задачки на массивы:

1. Даны действительные числа a1, a2, … ,an. Поменять местами наибольший и наименьший элементы.

2. Вычислить сумму и число положительных элементов матрицы А [N, N], находящихся над главной диагональю.

Не оставьте без внимания, пожалуйста

[Anty_F[R]eez]

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

находящихся над главной диагональю.

главная диагональ это типа A[0][0]-A[max][max]???

[Snejnaya]

Даны действительные числа a1, a2, … ,an. Поменять местами наибольший и наименьший элементы

в чем именно состоит проблема - ты не можешь найти максимальный и минимальный элементы или не можешь поменять их местами?

Вычислить сумму и число положительных элементов матрицы А [N, N], находящихся над главной диагональю.

var i,j,n, chislo_el:integer;
     a: array [1..10, 1..10] of real;
     sum:real;
begin
//тут запросили у пользователя n<=10 и сформировали матрицу
sum:=0;
chislo_el:=0;
for i:=1 to n do
for j:=i to n do
if (a[i,j]>0) then
begin
chislo_el:=chislo_el+1;
sum:=sum+a[i,j];
end;
writeln(sum);
writeln(chislo_el);
end;

[Slezinka]

Anty_F[R]eez, не знаю...меня это пугает вообще

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

[Snejnaya]

тебе просто нужно ввести дополнительную переменную. Вот ты нашла максимальный и минимальный элементы и сохранила их индексы в переменные i_max, i_min. В разделе vаr объявила дополнительную переменную - назовем ее х.

//выводим исходный массив
for i:=1 to n do write(a[i]);

//меняем местами
x:=a[i_max];
a[i_max]:=a[i_min];
a[i_min]:=x;

//еще раз выводим
for i:=1 to n do write(a[i]);

[ROMA2PVT]

-I-

Uses
  CRT;
var
  a:array [1..20] of integer;
  i,min,max,imin,imax,n,t:integer;
begin
Clrscr;
randomize;
write('Введите количество элементов массива: ');
readln(n);
writeln('Исходный массив:=');
for i:=1 to n do
  begin
     a[i]:=random(10)-2;
     write(a[i]:3,' ');
  end;

min:=a[1];
imin:=1;
max:=a[1];
imax:=1;
for i:=1 to n do
   begin
     If a[i]>Max Then
       Begin
          Max:=a[i];
          imax:=i;
       End;
     If a[i]<Min Then
       Begin
          Min:=a[i];
          iMin:=i;
       End;
   end;

writeln;
  writeln ('MIN[',imin,']:=',min,'; MAX[',imax,']:=',max);
    t:=a[imax];
    a[imax]:=a[imin];
    a[imin]:=t;
    writeln;
    writeln('Результирующий массив:=');
    for i:=1 to n do
      begin
         write(a[i]:3,' ');
      end;
readkey;
end.

-II-

Uses 
   CRT;
var a: array[1..100,1..100] of integer;
i,j,n,sum,kol:integer;
begin
randomize;
clrscr;
write('Введите кол-во строк и столбцов: ');
readln(n);
for i:=1 to n do
  begin
   for j:=1 to n do
     begin
       a[i,j]:=random(10)-3;
       write(a[i,j]:3);
     end;
     writeln;
  end;
writeln;
sum:=0;
kol:=0;
for i:=1 to n do
for j:=1 to n do
if i<j then
begin
if a[i,j]>0 then
begin
inc(kol);
sum:=sum+a[i,j];
end;
end;
writeln;
writeln('Сумма положительных элементов выше главной диагонали:=',sum,'; Количество:=',kol);
readkey;
end.

[Slezinka]

Ребят, огромное вам СПАСИБО! Выручили очень)))

[Наталько]

и мне пригодилось, спасибо)))