Опять паскаль в котором я вообще 0 =(

[Алина-малина]

Ребят п-ста ,оч прошу, помогите с решением=) пожалуйста пожалуйста пожалуйста. В дальнейшем, чем смогу тем помогу. вам...эммм например я вкусно готовлю)) кто захочет могу научить или пригласить на чай))

В общем вот такая задача.
1)Одномерный массив. Даны натуральное число n, действительные числа a1, ... , an. Вычислить:
│a1│,│a1+a2│, ... , │a1+ ... +an│;

2) В данной действительной матрице размера 6х9 поменять местами строку, содержащую элемент с наибольшем значением, со строкой, содержащей элемент с наименьшим значением. Предполагается, что эти элементы единственны.

[OLEG'arh]

var
  a:array [1..10] of integer;
  i,n,sum:integer;
begin
  writeln('vvedite n');
  readln(n);
  for i:=1 to n do
    begin
      writeln ('vvedite ',i,'-y element');
      readln(a[i]);
    end;
  for i:=1 to n do
    begin
      sum:=sum+a[i];
      write(sum,', ');
    end;
  readln;
end.

[puporev]

sum:=sum+a[i];

Разве в задании нужно посчитать сумму элементов?
Нужно вывести
модуль 1-го элемента
модуль суммы 1+2 элементы
модуль суммы 1+2+3 элементов
..................................
модуль суммы 1+2+3+...+an элементов

[OLEG'arh]

=) так я так и делаю

[puporev]

Вы просто складываете все элементы, и все. Надо так:

uses crt;
var a:array[1..50]of real;
    n,i,j:integer;
    sum:real;
begin
clrscr;
randomize;
write('n=');readln(n);
for i:=1 to n do
  begin
    a[i]:=random(10)+random-3;
    write(a[i]:6:2);
  end;
writeln;
for i:=1 to n do
    begin
      sum:=0;
      for j:=1 to i do
      sum:=sum+a[j];
      writeln('Modul summy 1 - ',j,' =',abs(sum):0:2);
    end;
readln
end.

[OLEG'arh]

.... у меня не вещественные числа в массие и с модулем.... - пропустил.. исправил

uses crt;
var
  a:array [1..10] of real;
  i,n:integer;
  sum:real;
begin
  clrscr;
  writeln('vvedite n');
  readln(n);
  for i:=1 to n do
    begin
      writeln ('vvedite ',i,'-y element');
      readln(a[i]);
    end;
  for i:=1 to n do
    begin
      sum:=sum+a[i];
      write(abs(sum):0:2,', ');
    end;
  readln;
end.

[puporev]

Вы видимо ничего не хотите понимать и упорно пишете свою ахинею. Вы прогоните мою программу и свою. Сравните и еще раз прочитайте условие. Посмотрите какая соответствует ему.
Вторая задача.

uses crt;
const n=6;
        m=9;
var a:array[1..n,1..m]of real;
    i,j,imax,imin:integer;
    max,min,x:real;
begin
clrscr;
writeln('Ishodnaia matrica:');
for i:=1 to n do
    begin
      for j:=1 to m do
        begin
         a[i,j]:=random(10)+random;
         write(a[i,j]:6:2);
        end;
      writeln;
    end;
max:=a[1,1];min:=a[1,1];imax:=1;imin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
   begin
      max:=a[i,j];//максимальный элемент
      imax:=i;  //номер строки с ним
   end
else if a[i,j]<min then
   begin
      min:=a[i,j];  //минимальный элемент
      imin:=i;  //номер строки
   end;
writeln('max=',max:0:2,' imax=',imax);
writeln('min=',min:0:2,' imin=',imin);
for j:=1 to m do
   begin
     x:=a[imin,j];  //меняем элементы строк
     a[imin,j]:=a[imax,j];
     a[imax,j]:=x;
   end;
for i:=1 to n do
   begin
     for j:=1 to m do
     write(a[i,j]:6:2);
     writeln;
   end;
readln
end.

[OLEG'arh]

=)

ну вот прогнал. убрав у себя отчистку экрана запустил вашу и вслед свою. абсолютно одинаково. разница в 0.01 в результате объясняется тем что я ввожу в ручную до сотых.

[puporev]

Извините пожалуйста, это я не врубился в Ваш код.

[Greblin]

2 задачка

program matrmaxmin;

type TVector = array[1..9] of real;
     TMatr = array[1..6] of TVector;

var matr: TMatr;
    min, max: real;
    imin, imax: integer;
    buf: TVector;
    i, j: integer;

begin
writeln('>');
for i := 1 to 6 do
  for j := 1 to 9 do
    read(matr[i, j]);
imin := 1; imax := 1;
min := matr[1, 1]; max := matr[1, 1];
for i := 1 to 6 do
  for j := 1 to 9 do
    begin
    if matr[i, j] < min then
      begin
      min := matr[i, j];
      imin := i;
      end;
    if matr[i, j] > max then
      begin
      max := matr[i, j];
      imax := i;
      end;
    end;
buf := matr[imin];
matr[imin] := matr[imax];
matr[imax] := buf;
for i := 1 to 6 do
  begin
  for j := 1 to 9 do
    write(matr[i, j]:1:4,' ');
  writeln;
  end;
end.