Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 08.05.2015
Сообщений: 22
1

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

02.06.2015, 21:27. Просмотров 446. Ответов 1
Метки нет (Все метки)

Дан массив:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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)определите средне арифметическое положительных элементов массива
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2015, 21:27
Ответы с готовыми решениями:

Построить вектор из положительных элементов и найти среднее арифметическое из отрицательных элементов матрицы
Дана матрица размерностью nxm. Построить вектор из положительных элементов матрицы. Найти среднее...

Определить среднее арифметическое элементов матрицы четвертого столбца, кратных 4
Люди пожалуйста кто знает выручите Дан двумерный массив целых чисел.определить среднее...

Определить среднее арифметическое положительных элементов матрицы
Для каждой из матриц A(3,3) B(4,4) C(2,3) определить среднее арифметическое положительных элементов

Определить среднее арифметическое положительных элементов матрицы
Дана матрица А(m,n), 1 < (m, n) < 10. Определить среднее арифметическое положительных элементов...

1
3449 / 2387 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
02.06.2015, 22:36 2
здесь к вашему коду добавил решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2015, 22:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить среднее арифметическое положительных и отрицательных элементов матрицы
Здравствуйте уважаемый форумчане! Проверьте пожалуйста задачки и подскажите как быть.... 1)В...

Определить среднее арифметическое отрицательных и положительных элементов матрицы
Как определить среднее арифметическое отрицательных и положительных элементов в массиве A(M,N)

Определить среднее арифметическое положительных элементов главной диагонали матрицы
|1 0 -1 2| |2 3 -4 5| С=|2 -1 -1 1| |4 0 2 2|

Определить среднее арифметическое положительных элементов каждого столбца матрицы
Здравствуйте! Задача: дан двухмерный массив 5х6. Определить среднее арифметическое положительных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.