Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
nikiviki1609
0 / 0 / 0
Регистрация: 28.04.2017
Сообщений: 3
1

Вывести результаты преобразования матрицы

28.04.2017, 13:03. Просмотров 743. Ответов 2
Метки нет (Все метки)

Дана матрица А[1:4; 1:4]
а) получить сумму и количество четных элементов в интервале [-10 +5].
б) сформировать вектор из сумм элементов матрицы по столбцам
в) получить среднеарифметическое значение положительных элементов матрицы.
г) получить произведение и сумму элементов в третьем столбце.
а этого случайно нет?)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.04.2017, 13:03
Ответы с готовыми решениями:

A (3,4) Вычислить и запомнить суммы и числа элементов каждой строки матрицы результаты вывести на экран!!!
Помогите пожалуйста!!! Дано: A (3,4) Вычислить и запомнить суммы и числа...

Матрицы, преобразования
так помогите решить задачу, я так понел её нада решать через присвоение?? и...

Матрицы, поиск и преобразования.
помогите пожалуйста задание- Дана целочисленная матрица A из N строк и N...

Подпрограмма преобразования квадратной матрицы.
http://img387.imageshack.us/img387/3426/imagenp.jpg Вот такое задание....

Массив вывести до и после преобразования
Ввести двумерный массив N A ×M . К элементам массива не кратным трём прибавить...

2
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27954 / 15674 / 959
Регистрация: 15.09.2009
Сообщений: 67,837
Записей в блоге: 78
28.04.2017, 13:06 2
nikiviki1609, одна тема - один вопрос, читайте правила.
0
VladimirD
74 / 74 / 78
Регистрация: 30.12.2015
Сообщений: 226
28.04.2017, 14:17 3
Лучший ответ Сообщение было отмечено nikiviki1609 как решение

Решение

magirus,

Кликните здесь для просмотра всего текста
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
54
55
56
57
58
59
60
61
62
const n=4;m=4;
  var 
      a:array [1..n,1..m] of integer; 
      b:array [1..n] of integer;
      i,j,kol,sum,pro:integer;
      sar:real;
begin
 //создание матрицы
  randomize;
  for i:=1 to n do 
    begin
      for j:=1 to m do begin a[i,j]:=random(100)-25;write(a[i,j]:4);end;
      writeln; //переход на новую строку
    end;
 
  // а
  writeln;
  sum:=0;kol:=0;
  for i:=1 to n do 
    for j:=1 to m do
      if (a[i,j]>=-10) and (a[i,j]<=5) then 
        begin 
          sum:=sum+a[i,j]; kol:=kol+1;
        end;
  writeln('sum=',sum,' kol=',kol);
 
  // б
  writeln;
  for i:=1 to n do begin
    b[i]:=0; 
    for j:=1 to m do 
      b[j]:=b[j]+a[i,j];
    end;  
  for i:=1 to n do write(b[i]:4);     
  
  
  // в
  writeln;
  sum:=0;kol:=0;
  for i:=1 to n do 
    for j:=1 to m do 
      if a[i,j]>0 then
        begin 
          sum:=sum+a[i,j];
          kol:=kol+1;
          sar:=sum/kol;
        end;
  writeln('сред арифметическое=',sar:4:1);  
  
  // г
  writeln;
  sum:=0;pro:=1;
    for j:=1 to m do 
        begin 
          sum:=sum+a[i,3];
          pro:=pro*a[i,3];
        end;
        
  writeln('сумма=',sum);
  writeln('произв=',pro);        
        
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.04.2017, 14:17

Как вывести результаты работы программы в текстовый файл в данной программе?
Разработать программу на языке Pascal. Заданный метод должен быть реализован в...

Найти номера наибольших элементов каждой строки матрицы, результаты записать в вектор Fmax
Помогите решить пожалуйста!!! Дана матрица F размером mхn. Найти номера...

Дан массив Х(16). Умножить все элементы данного массива на максимальный и вывести результаты в таком порядке, в каком были даны исходные данные.
Дан массив Х(16).умножить все элементы данного массива на максимальный ,и...


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

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

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