1.
Цитата:
Var
M:Array[1..9,1..12] of Integer;
i,j,j_pos:Byte;
Begin
Randomize;
Writeln('Initial array:');
For i:=1 to 9 do
begin
For j:=1 to 12 do
begin
M[i,j]:=50-Random(100);
write(M[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Numbers of last positive elements:');
For i:=1 to 9 do
begin
write(i,' line: ');
j_pos:=0;
For j:=1 to 12 do
if M[i,j]>0 then j_pos:=j;
If j_pos=0 then
writeln('no')
else
writeln(j_pos:2);
end;
readln
End.
|
2.
Цитата:
Var
M:Array[1..7] of Vector;
D:Vector;
i,j:Byte;
Begin
Randomize;
Writeln('Initial array:');
For i:=1 to 7 do
begin
For j:=1 to 12 do
begin
M[i][j]:=Random(100);
write(M[i][j]:4);
end;
writeln;
end;
writeln;
D:=M[1];
For i:=2 to 4 do
M[i-1]:=M[i];
M[4]:=D;
Writeln('Changed array:');
For i:=1 to 7 do
begin
For j:=1 to 12 do
write(M[i][j]:4);
writeln;
end;
|
Насколько ленивые люди. Все есть на форуме, надо просто поискать.