Написать программу для паскаля. Дана квадратная матрица

+ 0 -

Экатерина2345

27 сент. 2013 г., 20:44:50 (10 лет назад)

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]<0 then inc(k);
         end;
     if k>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.      

+ 0 -

Tosyara33ni

27 сент. 2013 г., 22:13:57 (10 лет назад)

Матрица задается с клавиатуры или рандомно?

+ 0 -

Danilenko8080

28 сент. 2013 г., 1:11:32 (10 лет назад)

С клавиатуры наверно

+ 0 -

Bonubonu08

28 сент. 2013 г., 3:45:10 (10 лет назад)

Kage1998, транспонировать - поменять местами строки и столбцы

+ 0 -

AnChestr

28 сент. 2013 г., 5:24:22 (10 лет назад)

если бы сказала по быстрее я бы решил эту задачу

+ 0 -

Seniorvinipux2

28 сент. 2013 г., 8:19:14 (10 лет назад)

Если бы Вы были заинтересованы, могли бы и в поиск это слово забить.