Из элементов матрицы, кратных 3, создать вектор и определить среднее арифметическое положительных элементов

@fukodite · Регистрация: 08.05.2015

Дан массив:

Pascal

uses crt;
Type Mas = array [1..6, 1..6] of integer;
Var A, B : Mas;
i,j:integer;
begin
Randomize;
For i:=1 to 6 do begin
For j:=1 to 6 do begin
A[i, j]:=random(100)-65;
End;
End;
ClrScr; 
For i:=1 to 6 do begin
For j:=1 to 6 do begin
Write(A[i, j] :4);
End;
Writeln;
End;
end.

По нему решите:
1)создайте новый одномерный массив из элементов двумерного значения имеющих значение кртаное 3(трем)
2)определите средне арифметическое положительных элементов массива

@ermolay · 02.06.2015, 22:36

здесь к вашему коду добавил решение:

Pascal

uses
  crt;
 
type
  Mas = array [1..6, 1..6] of integer;
  Vkt = array[1..36] of integer;
 
var
  A: Mas;
  B: Vkt;
  i, j, p, q: integer;
  Sum, Avr: real;
 
begin
  Randomize;
  for i := 1 to 6 do 
  begin
    for j := 1 to 6 do 
    begin
      A[i, j] := random(100) - 65;
    end;
  end;
  ClrScr; 
  for i := 1 to 6 do 
  begin
    for j := 1 to 6 do 
    begin
      Write(A[i, j]:4);
    end;
    Writeln;
  end;
  
  for i := 1 to 6 do
    for j := 1 to 6 do
    begin
      if a[i, j] mod 3 = 0 then 
      begin
        inc(p);
        B[p] := a[i, j];
      end;
      if a[i, j] > 0 then
      begin
        inc(q);
        Sum := Sum + a[i, j];
      end;
    end;
  writeln('Array B:');
  for i := 1 to p do write(B[i]:4);
  writeln();
  Avr := Sum / q;
  writeln('Average of positive: ', Avr:0:3);
  readln;
end.

а здесь немного изменил ваш код, решение как и первом примере:

Pascal

uses
  crt;
  
const
  n = 6;
  
type
  Mas = array [1..n, 1..n] of integer;
  Vkt = array[1..n*n] of integer;
 
var
  A: Mas;
  B: Vkt;
  i, j, p, q: integer;
  Sum, Avr: real;
 
begin
  Randomize;
  ClrScr;
  WriteLn('Array A:');
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      A[i, j] := random(100) - 65;
      Write(A[i, j]:4);
    end;
    WriteLn;
  end;
  
  for i := 1 to n do
    for j := 1 to n do
    begin
      if a[i, j] mod 3 = 0 then 
      begin
        inc(p);
        B[p] := a[i, j];
      end;
      if a[i, j] > 0 then
      begin
        inc(q);
        Sum := Sum + a[i, j];
      end;
    end;
  writeln('Array B:');
  for i := 1 to p do write(B[i]:4);
  writeln();
  Avr := Sum / q;
  writeln('Average of positive: ', Avr:0:3);
  readln;
end.

Опции темы