Ладно, живите. Но вообще-то беритесь-ка за ум, причем желательно собственный. Чужим, знаете ли, не проживешь.
Код:
CONST
N=10;
VAR
Q,P:ARRAY[1..N] of WORD;
i,Np:INTEGER;
BEGIN
Np:=0;
For i:=1 to N do
begin
Write('Q[',i,']= ');
ReadLn(Q[i]);
If (Q[i] mod 7 = 1) or (Q[i] mod 7 = 2) or (Q[i] mod 7 = 5) then
begin
Inc(Np);
P[Np]:=Q[i];
end;
end;
WriteLn;
For i:=1 to Np do
Write(P[i],' ');
WriteLn;
ReadLn;
END.
Код:
VAR
A:ARRAY[1..3] of INTEGER;
B:ARRAY[1..3,1..3] of INTEGER;
i,j:INTEGER;
BEGIN
For i:=1 to 3 do
begin
Write('A[',i,']= ');
ReadLn(A[i]);
end;
WriteLn;
For i:=1 to 3 do
begin
For j:=1 to 3 do
begin
B[i,j]:=A[i]-3*A[j];
Write(B[i,j]:12);
end;
WriteLn;
end;
ReadLn;
END.