Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.06.2013, 18:29   #1
Romahka
Новичок
Джуниор
 
Регистрация: 22.06.2013
Сообщений: 1
Восклицание работа с матрицами из целых чисел размерностью 10х10

помогите найти максимальный элемент в тех столбцах,которые не содержат положительных элементов;перестроить строки и столбцы так что бы в левом верхнем углу оказался максимальный положительный элемент матрицы;и удалить строки и столбцы, состоящие только из нулей


вот я ввел матрицу и выполнил первое условие..и немного начал втрое..но не знаю правильно ли я делаю помогите плиз...в понедельник надо сдать...ато не получу зачет(((((


Код Pascal
Код:
var
  a, b: array[1..10, 1..10] of integer;
  i, j, N: byte;
  max: integer;
  F: text;
begin
  assign(F, 'pr3.rez');
  rewrite(F);
  writeln('введите размерность матрицы:', N);
  readln(N);
  write(F, 'размерность матрицы:', N);
  writeln(F);
  writeln(F);
  writeln('введите матрицу');
  write(F, 'матрица:');
  writeln(F);
  for i := 1 to N do
    for j := 1 to N do
      readln(a[i, j]);
  for i := 1 to N do begin
    for j := 1 to N do
      write(F, a[i, j]);
    writeln(F);
  end;
  writeln(F);
  write(F, 'результати расчетов:');
  writeln(F); writeln(F);
  max := a[1, j];
  for j := 1 to N do degin
    for i := 1 to N do
      if a[i, j] < 0 then
        if a[i, j] > max then
          max := a[i, j]; end;
writeln('максимальный элемент:', max);
writeln('введите количество столбцов:'); readln(N);
writeln('введите количество строк:'); readln(N);
for i := 1 to N do
  for j := 1 to N do
  begin
    writeln('a[', i, ',', j, ']='); readln(a[i, j]);
  end;
for i := 1 to N do
  for j := 1 to N do b[j, i] := a[i, j];
writeln('исходная таблица:');
for j := 1 to N do
begin
  writeln(' ');
  for i := 1 to N writeln('', a[i, j]);
end;
writeln(' '); writeln('ответ:');
for j := 1 to n do begin
  writeln('');
  for i := 1 to N do writeln('', b[j, i]); end;
readln;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 22.06.2013 в 18:47.
Romahka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сформировать список целых чисел и посчитать сумму нечетных чисел bwitcher Помощь студентам 6 23.03.2013 18:08
Задача - выполнение операций сложения, вычитания и умножения над матрицами целых чисел Uimbldon Помощь студентам 1 27.11.2012 15:39
Найти количество положительных чисел среди четырёх целых чисел. teac2011 Помощь студентам 0 01.12.2011 19:58
Дана последовательность вещественных чисел. каждая пара чисел задает границы отрезка. Найти количество целых чисел на отрезках 'studentka' Помощь студентам 6 30.11.2011 18:35
Сложение двух десятичных положительных чисел. целых чисел))) PEro_man Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 01.12.2010 12:40