В двухмерном массиве все отрицательные элеметны заменить на их модули. А новый массив вывести на экран

[JulLy]

Всем приветики...Здесь такое дело...у нас не было пол года информатики...а тут пришла проверка какае-то,и типа нам надо сделать задачи на паскале...мы вообще паскаль не проходили...Короче я в этом ничего не понимаю...Вот условия:

1. Найти минимальное и максимальное элементы и поменять их местами.
2. Найти среднее арифметическое и геометрическое элементов массива.
3. В одномерном массиве вычислить произведение структурных элементов,которые имеют нечетные цифры.
4. Найти в двухмерном массиве наибольшее и его номер.
5. В одномерном массиве найти сумму и количество,меньше пяти,а индекс (номер) равен k.
6. Найти в двухмерном массиве минимальный элемент и поменять его с первым.
7. В двухмерном массиве найти сумму элементов по столбцам.
8. Найти наибольшую сумму в двухмерном массиве.
9. Найти произведение двух массивов и результат записать в 3 массив.

Просто кто сможет помочь..Заранее благодарна!

[DM_bite]

10.

program Xd;
const n=10;
var a:array [1..n,1..n] of integer;
    i,j: integer;
    begin
    randomize;
    for i:= 1 to n do
     for j:= 1 to n do
     begin
     a[i][j]:=-4+random(n);
     end;
      for i:= 1 to n do
       for j:= 1 to n do
       begin
       if a[i][j]<0 then a[i][j]:= abs(a[i][j]);
       end;
       for i:= 1 to n do
     begin
      for j:= 1 to n do
      begin
      Write(a[i][j],'_');
      end;
      WriteLn;
      end;
      ReadLn;
     end.

[JulLy]

спасибо...Кто еще может?

[DM_bite]

спасибо...Кто еще может?

А чем вам это решение не нравиться?
Хотя можно слегка сократить код, только будет выводиться готовая матрица.

program Xd;
const n=10;
var a:array [1..n,1..n] of integer;
    i,j: integer;
    begin
    randomize;
    for i:= 1 to n do
    begin
     for j:= 1 to n do
     begin
     a[i][j]:=-4+random(n);
     if a[i][j]<0 then a[i][j]:= abs(a[i][j]);
     Write(a[i][j],'_');
     end;
     WriteLn;
     end;
     ReadLn;
     end.

[JulLy]

1. Найти минимальное и максимальное элементы и поменять их местами.
2. Найти среднее арифметическое и геометрическое элементов массива.
3. В одномерном массиве вычислить произведение структурных элементов,которые имеют нечетные цифры.
4. Найти в двухмерном массиве наибольшее и его номер.
5. В одномерном массиве найти сумму и количество,меньше пяти,а индекс (номер) равен k.
6. Найти в двухмерном массиве минимальный элемент и поменять его с первым.
7. В двухмерном массиве найти сумму элементов по столбцам.
8. Найти наибольшую сумму в двухмерном массиве.
9. Найти произведение двух массивов и результат записать в 3 массив.

[JulLy]

Помогите решить задачки!

[Gongled]

Будут наработки — будет помощь. Разве что покажу решение второй задачи:

program pr1;
uses CRT;
const
n = 10;
var
a : array[1..n] of integer;
i, pr, sum : integer;
begin
clrscr;

sum := 0;
pr := 1;
for i:=1 to n do
begin
     a[i]:=random(10)+1;
     write(a[i]:4);
     sum := sum + a[i];
     pr := pr * a[i];
end;

writeln;
writeln('Среднее арифметическое: ', sum / n);
writeln('Среднее геометрическое: ', exp((1/n)*ln(pr)) );

end.

[JulLy]

Gongled ...Спасибо...я понимаю ваше отношение к данным делам...Ну вы прочитайте сверху,что я написала...Мне просто это не нужно в жизни...Нам сказали,спросить кто может помочь сделать и всё...На меня можете даже не расчитывать,я просто вообще никогда не имела дело с Паскалем...И вот прошу так как вы сделать,если это канешно не займёт много времени у вас

[Gongled]

Решение. Некоторые моменты (указал в аттаче) лучше уточнить.

[JulLy]

Спасибо вам мужчина...Вы меня очень выручили...как я вас могу отблагодарить?