Написать программку для паскаля. Дана квадратная матрицапорядка n(n=5).Если в данной матрице

Написать программу для паскаля. Дана квадратная матрица
порядка n(n=5).
Если в данной матрице a нет отрицательных частей,
то транспонировать её, по другому выдать сообщение.

Задать свой вопрос
Сашок Курумов
Матрица задается с клавиатуры или рандомно?
Полина Хотеенкова
С клавиатуры наверно
Илья Боркунов
Kage1998, транспонировать - поменять местами строчки и столбцы
Михаил Оглодин
Если бы Вы были заинтересованы, могли бы и в поиск это слово забить.
1 ответ
Uses crt;
const N=2;
var a:array [1..N,1..N] of real;
    i,j,k:integer;
begin
     k:=0; writeln('Введите матрицу:');
     for i:=1 to N do
         for j:=1 to N do
         begin
              read(a[i,j]);
              if a[i,j]lt;0 then inc(k);
         end;
     if kgt;0 then writeln('В матрице отрицательный элемент')
     else
         for i:=1 to N do
         begin
             for j:=1 to N do
             write(a[j,i]:3:0);
             writeln;
         end;
end.      
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт