Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Evona
0 / 0 / 1
Регистрация: 12.01.2015
Сообщений: 10
#1

Найти средние значения положительных и отрицательных элементов каждого столбца матрицы отдельно

13.01.2015, 12:20. Просмотров 305. Ответов 1
Метки нет (Все метки)

Сформировать двумерный массив А размером 5*7 с помощью генератора случайных чисел и вывести элементы массива на экран. Найти средние значения положительных и отрицательных элементов каждого столбца матрицы отдельно и вывести их на экран.
Проверьте пожалуйста верно ли сделано, и если нет, тогда подправьте пожалуйста.
Спасибо!

Сделано в Turdo Pascal 7.0
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
var a:array[1..5,1..7] of integer;
    i,j,kolpol,kolotr:integer;
    respol,resotr:real;
begin
for j:=1 to 7 do begin
  for i:=1 to 5 do begin
    a[i,j]:=random(-50,50);
    write(a[i,j]:4);
  end;
  writeln();
end;
for i:=1 to 5 do begin
  respol:=0;
  resotr:=0;
  kolpol:=0;
  kolotr:=0;
  for j:=1 to 7 do begin
    if a[i,j]>0 then begin
      respol:=a[i,j];
      kolpol:=1;
    end
    else if a[i,j]<0 then begin
       resotr:=a[i,j];
       kolotr:=1;
     end;
  end;
  writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
  writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2015, 12:20
Ответы с готовыми решениями:

Сформировать вектор x, записав в него количество отрицательных и положительных элементов каждого столбца матрицы
Дана квадратная матрица порядка n(n=10).Сформировать вектор x, записав в него...

Найти количество отрицательных элементов каждого столбца матрицы
Найти количество отрицательных элементов каждого столбца матрицы.

Найти произведение положительных элементов каждого столбца матрицы
Нужно найти произведение положительных элементов каждого столбца матрицы А, ее...

Найти сумму положительных элементов каждого столбца матрицы
http://www.cyberforum.ru/attachment.php?attachmentid=109733&amp;stc=1&amp;d=1322494555

Найти среднее арифметическое положительных элементов каждого столбца матрицы
Найти среднее арифметическое положительных элементов каждого столбца матрицы и...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,656
Записей в блоге: 1
13.01.2015, 13:25 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
for j:=1 to 7 do begin
    if a[i,j]>0 then begin
      respol:=respol+a[i,j];
      kolpol:=kolpol+1;
    end
    else if a[i,j]<0 then begin
       resotr:=resotr+a[i,j];
       kolotr:=kolotr+1;
     end;
  end;
  if kolpol>0 then writeln('Среднее значение положительных чисел в ',j,' столбце=', respol/kolpol)
   else writeln('В ',j,' столбце нету положительных');
  if kolotr>0 then writeln('Среднее значение отрицательных чисел в ',j,' столбце=', resotr/kolotr)
   else writeln('В ',j,' столбце нету отрицательных');
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.01.2015, 13:25

Найти максимум среди нечетных отрицательных элементов каждого столбца матрицы
У кого есть время, решите пожал. задачу!!! Заранее спасибо!!!))) Дана матрица...

Найти среднее арифметическое положительных элементов каждого столбца матрицы при условии
Помогите решить задачу очень надо, как можно быстрее. Задача: Найти среднее...

Найти суммы четных положительных элементов каждого столбца матрицы, результат записать в одномерный массив.
1.Найти суммы четных положительных элементов каждого столбца мат- рицы,...


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

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

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