Matrix (Pascal)

[ilnar21]

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

http://programmersforum.ru/search.php?searchid=650417

открываешь каждую тему и просматриваешь.

конечно если искать по "тексту задания" не найдешь,нормально.

тут есть все твои задачи в той или иной интерпретации.если что там заменить 2-3 буковки и усе будет работать как часы.

Пишет после перехода на ссылку "Извините, нет совпадений. Попробуйте указать другие ключевые слова."

[savva]

проведи поиск по этому форуму(наверху есть кнопочка)

ключевое слово Матрицы или Двумерные Массивы.

[ROMA2PVT]

7-17(2 в одном)

Uses
  CRT;
VAR
  MAS:ARRAY [1..20,1..20] OF integer;
  I,J,k,n,m,pr,sum:longint;
BEGIN
Clrscr;
randomize;
write('Введите количество строк: ');
readln(m);
write('Введите количество столбцов: ');
readln(n);
WRITELN ('Исходная матрица: ');
   FOR I:=1 TO m DO
       begin
          FOR j:=1 TO n DO
              begin
                 MAS[I,J]:=random(10)-3;
                 write(mas[i,j]:3,' ');
              END;
              writeln;
       end;
writeln;
repeat
write('Введите номер строки: ');
readln(k);
until k in [1..m];
pr:=1;
sum:=0;
   FOR J:=1 TO n DO
       BEGIN
              write(MAS[K,J]:2,' ');
              pr:=pr*mas[k,j];
              sum:=sum+mas[k,j];
end;
writeln;
writeln('Произведение равно: ',pr,'; Сумма:=',sum);
readkey;
END.

8-18(2 в одном)

Uses
  CRT;
VAR
  MAS:ARRAY [1..20,1..20] OF integer;
  I,J,k,n,m,pr,sum:longint;
BEGIN
Clrscr;
randomize;
write('Введите количество строк: ');
readln(m);
write('Введите количество столбцов: ');
readln(n);
WRITELN ('Исходная матрица: ');
   FOR I:=1 TO m DO
       begin
          FOR j:=1 TO n DO
              begin
                 MAS[I,J]:=random(10)-3;
                 write(mas[i,j]:3,' ');
              END;
              writeln;
       end;
writeln;
repeat
write('Введите номер столбца: ');
readln(k);
until k in [1..n];
pr:=1;
sum:=0;
   FOR i:=1 TO m DO
       BEGIN
              writeln(MAS[i,k]:2,' ');
              pr:=pr*mas[i,k];
              sum:=sum+mas[i,k];
end;
writeln;
writeln('Произведение равно: ',pr,'; Сумма:=',sum);
readkey;
END.

Раздели и будет тебе счастье.
Остальное в гугле пробивай.Всё так или иначе решалось.Да и самому понять довольно легко(если хренью немаяться).

19

Uses
  CRT;
VAR
  MAS:ARRAY [1..20,1..20] OF integer;
  I,J,k,n,m,sum:longint;
BEGIN
Clrscr;
randomize;
write('Введите количество строк: ');
readln(m);
write('Введите количество столбцов: ');
readln(n);
WRITELN ('Исходная матрица: ');
   FOR I:=1 TO m DO
       begin
          FOR j:=1 TO n DO
              begin
                 MAS[I,J]:=random(10)-3;
                 write(mas[i,j]:3,' ');
              END;
              writeln;
       end;
writeln;
   FOR i:=1 TO m DO
       BEGIN
       sum:=0;
          FOR j:=1 TO n DO
              sum:=sum+mas[i,j];
              writeln('Сумма элементов ',i,'-й строки:=',sum);
end;
writeln;
readkey;
END.

20

Uses
  CRT;
VAR
  MAS:ARRAY [1..20,1..20] OF integer;
  I,J,k,n,m,pr:longint;
BEGIN
Clrscr;
randomize;
write('Введите количество строк: ');
readln(m);
write('Введите количество столбцов: ');
readln(n);
WRITELN ('Исходная матрица: ');
   FOR I:=1 TO m DO
       begin
          FOR j:=1 TO n DO
              begin
                 MAS[I,J]:=random(10)-3;
                 write(mas[i,j]:3,' ');
              END;
              writeln;
       end;
writeln;
   FOR j:=1 TO n DO
       BEGIN
       pr:=1;
          FOR i:=1 TO m DO
              pr:=pr*mas[i,j];
              writeln('Произведение элементов ',j,'-го столбца:=',pr);
end;
writeln;
readkey;
END.

[ilnar21]

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

7-17(2 в одном)

Uses
  CRT;
VAR
  MAS:ARRAY [1..20,1..20] OF integer;
  I,J,k,n,m,pr,sum:longint;
BEGIN
Clrscr;
randomize;
write('Введите количество строк: ');
readln(m);
write('Введите количество столбцов: ');
readln(n);
WRITELN ('Исходная матрица: ');
   FOR I:=1 TO m DO
       begin
          FOR j:=1 TO n DO
              begin
                 MAS[I,J]:=random(10)-3;
                 write(mas[i,j]:3,' ');
              END;
              writeln;
       end;
writeln;
repeat
write('Введите номер строки: ');
readln(k);
until k in [1..m];
pr:=1;
sum:=0;
   FOR J:=1 TO n DO
       BEGIN
              write(MAS[K,J]:2,' ');
              pr:=pr*mas[k,j];
              sum:=sum+mas[k,j];
end;
writeln;
writeln('Произведение равно: ',pr,'; Сумма:=',sum);
readkey;
END.

8-18(2 в одном)

Uses
  CRT;
VAR
  MAS:ARRAY [1..20,1..20] OF integer;
  I,J,k,n,m,pr,sum:longint;
BEGIN
Clrscr;
randomize;
write('Введите количество строк: ');
readln(m);
write('Введите количество столбцов: ');
readln(n);
WRITELN ('Исходная матрица: ');
   FOR I:=1 TO m DO
       begin
          FOR j:=1 TO n DO
              begin
                 MAS[I,J]:=random(10)-3;
                 write(mas[i,j]:3,' ');
              END;
              writeln;
       end;
writeln;
repeat
write('Введите номер столбца: ');
readln(k);
until k in [1..n];
pr:=1;
sum:=0;
   FOR i:=1 TO m DO
       BEGIN
              writeln(MAS[i,k]:2,' ');
              pr:=pr*mas[i,k];
              sum:=sum+mas[i,k];
end;
writeln;
writeln('Произведение равно: ',pr,'; Сумма:=',sum);
readkey;
END.

Раздели и будет тебе счастье.
Остальное в гугле пробивай.Всё так или иначе решалось.Да и самому понять довольно легко(если хренью немаяться).

Огромное спасибо, очень благодарен и ценю ваш труд.

[ilnar21]

кто нибудь может разделить эти задачи?

[ROMA2PVT]

ну а что трудно оставить вывод строки в одной и убрать произведение с суммой,а в другой наоборот вывод строки убрать?

[ilnar21]

я не разбираюсь в матрицах..мы ещё не изучали..

[ilnar21]

раздели пожалуйста, если не трудно...очень прошу

[ROMA2PVT]

а как если вы неизучали вам задание тогда дали.Дали и перекрестили чтоли мол Всё с божьей помощью.

[ilnar21]

мы только поверхностно взяли