Цитата:
Сообщение от Madara
А можете написать их без оператора Randomize, а чтобы самому надо было вводить?
|
Как говорил незабвенный Василий Иваныч, "могу, Петька, могу":
Код:
Var
A:Array[1..10,1..3] of byte;
i,j:byte;
Begin
for i:=1 to 10 do
begin
for j:=1 to 3 do
begin
Write('A[',i,',',j,']= ');
Readln(A[i,j]);
end;
end;
Writeln;
for i:=1 to 10 do
begin
for j:=1 to 3 do
Write(A[i,j]:4);
if (A[i,2]<=A[i,1]) or (A[i,3]<=A[i,2]) then
writeln(' Order is corrupted!')
else
writeln(' Ordered')
end;
Readln
End.
Код:
Var
A:Array[1..5,1..5] of byte;
C:Array[1..5] of byte;
i,j:byte;
b:boolean;
Begin
for i:=1 to 5 do
for j:=1 to 5 do
begin
Write('A[',i,',',j,']= ');
Readln(A[i,j]);
end;
Writeln;
for i:=1 to 5 do
begin
Write('C[',i,']= ');
Readln(C[i]);
end;
Writeln('Matrix A:');
for i:=1 to 5 do
begin
for j:=1 to 5 do
Write(A[i,j]:4);
Writeln;
end;
Writeln;
Writeln('Old C array:');
for i:=1 to 5 do Write(C[i]:4);
Writeln;
Writeln;
b:=true;
for i:=1 to 5 do
if A[i,i]>C[i] then b:=false;
If b then
for i:=1 to 5 do
begin
C[i]:=A[i,1];
for j:=2 to 5 do
if A[i,j]<C[i] then C[i]:=A[i,j];
end;
Writeln('New C array:');
for i:=1 to 5 do Write(C[i]:4);
Readln
End.