Nhập ma trận A các số thực. Xét xem:
a) Trong ma trận có số dương hay không ?
b) Tất cả các phần tử của ma trận đều dương ?
Dữ liệu nhập: Nhập từ bàn phím.
Dữ liệu xuất: Xuất ra file BAI.OUT:
- Dòng 1: Trả lời câu a có hay không.
- Dòng 2: Trả lời câu b có hay không.
Ví dụ:
SỐ DÒNG: 3
SỐ CỘT: 3
1 -9 0
-1 0 1
-2 2 4
FILE BAI.OUT:
a) Có
b) Không
Uses crt;
Trả lờiXóaVar n,m,i,j:longint;
a,b:boolean;
f:array[1..1000,1..1000] of real;
Begin
b:=true;
readln(n);
readln(m);
For i:=1 to n do
For j:=1 to m do
Begin
readln(f[i,j]);
If f[i,j]>0 then a:=true else
If f[i,j]<1 then b:=false;
end;
If a=true then Writeln('Co') else Writeln('Khong');
If b=true then Writeln('Co') else Writeln('Khong');
readln;
end.