Помогите пожалуйста! Очень надо решить массивы.

[Рустам591]

Помогите пожалуйста! Очень надо решить массивы.

№1.Даны натуральные числа n, q1, q2,…, qn. найти те члены qi последовательности q1, q2,…, qn которые при делении на 7 дают остаток 1.2 или 5.
Даны целые числа а1, а2, а3. Получить целочисленную матрицу b_ij;i,j=1,2,3,для которой b_ij=a_i-〖3a〗_j

 

[Артём]

Свой вариант решения приведите пожалуйста. Или хотя-бы попытки сделать это.

 

[Рустам591]

Свой вариант решения приведите пожалуйста. Или хотя-бы попытки сделать это.

вы что...я даңе не умею это решать,а мне в понедельник это уже сдавать..просто щас зачетная неделя...не успеваю..а информатику не знай как сдавать...хотя бы допуск взять(((

 

[MrSTEP]

хоть бы не говорили так, "вы что?" Как вы собираетесь дальше учиться, если не знаете даже элементарного?

 

[Vladimir_S]

Ладно, живите. Но вообще-то беритесь-ка за ум, причем желательно собственный. Чужим, знаете ли, не проживешь.

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.

 

[Рустам591]

Ладно, живите. Но вообще-то беритесь-ка за ум, причем желательно собственный. Чужим, знаете ли, не проживешь.

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.

спасибо большое..вы мегня просто спасли....огромное спасибо