Матрица =(

[Gwynbleidd]

Всем привет =)

Столкнулся с задачкой по матрице, а как решить - не знаю. Практики почти не было, а голой теории маловато =(
Помогите пожалуйста, в среду сдавать уже =(((


дана матрица А[7.4] массы матрицы вагонов в N составах
1)ввести и распечатать матрицу,
2)определить суммарные массы каждого столбца, вывести их,
3)определить номера столбцов с max и min массами,
4) сформулировать одномерный массив из элементов матрицы <=10 заменив их в матрицу 0. расчитать массив и матрицу

[Карась]

Чтото я непонял, где номера вагонов надо записать, а где их массы

Вот так вот выглядит создание массива со случайными значениями и ввыод его на экран.

program Project1;

{$APPTYPE CONSOLE}

var mas: array [1..7,1..4] of integer;
    x, y: byte;
begin
Randomize;
  For x := 1 to 7 do
  For y := 1 to 4 do mas[x,y] := Random(10);

  For x := 1 to 7 do Begin
  For y := 1 to 4 do Write(mas[x,y],' '); Writeln; End;
Readln;
end.

[puporev]

Напиши задание так, как оно было в оригинале, т.е. на русском языке, иначе никто тебе правильно задачу не решит.
Хотя бы переведи это:

массы матрицы вагонов в N составах

заменив их в матрицу 0. расчитать массив и матрицу

Ответа не дождался. Вроде бы перевел сам. Получилось следующее:

Дана матрица А[7,4], где a[i,j] массы вагонов в N составах
1)ввести и распечатать матрицу,
2)определить суммарные массы каждого столбца, вывести их,
3)определить номера столбцов с max и min массами,
4) сформировать одномерный массив из элементов матрицы <=10 заменив их в матрице на 0. распечатать массив и матрицу

Если перевел правильно, то вот решение в Паскале.

program matrix;
uses crt;
var a:array[1..4,1..7]of integer;
    b:array[1..4]of integer;
    c:array[1..28]of integer;
    i,j,max,jmax,min,jmin,k:integer;
begin
clrscr;
{vvod i rasp matr}
writeln('ischod matr');
randomize;
for i:=1 to 4 do
  begin
    for j:=1 to 7 do
      begin
        a[i,j]:=random(15)+5;
        write(a[i,j]:3);
      end;
    writeln;
  end;
readln;
{podschet po stolbcham}
for j:=1 to 7 do
  begin
   for i:=1 to 4 do
      begin
        b[j]:=b[j]+a[i,j];
      end;
 end;
{vyvod summ}
for j:=1 to 7 do
writeln('sum v stb',j,'=',b[j]);
readln;
{jmax i jmin}
min:=b[1];jmin:=1;max:=b[1];jmax:=1;
for j:=2 to 7 do
   begin
     if b[j]<min then
        begin
          min:=b[j];jmin:=j;
        end;
     if b[j]>max then
        begin
          max:=b[j];jmax:=j;
        end;
   end;
writeln('jmax=',jmax);
writeln('jmin=',jmin);
readln;
{odnomern mass}
for i:=1 to 4 do
     for j:=1 to 7 do
       if a[i,j]<=10 then
            begin
              k:=k+1;
              c[k]:=a[i,j];
              a[i,j]:=0;
            end;
writeln('obrabot matr');
for i:=1 to 4 do
   begin
     for j :=1 to 7 do
       begin
         write(a[i,j]:3);
      end;
    writeln;
  end;
writeln;
writeln('massiv elementov <=10:');
for i:=1 to k do
write(c[i],' ');
readln;
end.

[Gwynbleidd]

Извиняюсь, что задание было коряво написано =((
Спасибо за помощь, очень выручили =)