0 / 0 / 0
Регистрация: 19.11.2018
Сообщений: 1
1

Составить одномерный массив из средних значений элементов нечетных столбцов исходного массива

19.11.2018, 17:31. Показов 1762. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
С клавиатуры вводится вещественная матрица M*N (M<=12,N<=18).СОставить одномерный массив из средних значений элементов нечетных столбцов исходного массива и упорядочить его по возрастанию.

Pascal
1
2
3
4
5
6
7
8
9
10
11
for j:=1 to N do
begin
for i:=1 to M do
if odd(j)=true then
begin
k:=k+1;
sum:=sum+A[i,j];
if k=0 then writeln ('неверные данные')
else
B[j]:=sum/k
end;
Куда в этой программе запихнуть счетчик элементов для одномерного массива. И есть ли ошибки в этой части программы?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2018, 17:31
Ответы с готовыми решениями:

Составить одномерный массив из средних арифметических значений элементов строк матрицы
Вводятся две вещественные матрицы размером 20х30 и 30х40. Для той матрицы, у которой сумма...

Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в
Добрый день, никак не получается решить данную задачу. Дан двухмерный массив A. Составить...

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

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

1
Супер-модератор
6163 / 2906 / 1299
Регистрация: 04.03.2013
Сообщений: 5,768
Записей в блоге: 1
19.11.2018, 18:44 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
const
  M = 5; {столбцы}
  N = 3; {строки}
var
  A : array [1..N, 1..M] of real;
  B : array [1..M] of real;
  i, j, k, index, size : integer;
  s : real;
  
begin
  {вводим с клавиатуры массив}
  for i := 1 to N do
    for j := 1 to M do
    begin
      write('введи A[', i, ',', j, ']: ');
      readln(A[i,j])
    end;
  {выводим матрицу}
  writeln('матрица A:');
  for i := 1 to N do
  begin
    for j := 1 to M do write(A[i,j]:6:2);
    writeln
  end;
  index := 1; {счетчик массива B}
  {обходим столбцы и формируем массив B}
  for j := 1 to M do
  begin
    s := 0; {сумму обнуляем для каждого столбца}
    k := 0; {кол-во обнуляем тоже}
    if odd(j) then {если столбец нечетный}
    begin
      for i := 1 to N do {проходим строки}
      begin
        s := s + A[i,j]; {считаем сумму}
        inc(k) {считаем количество}
      end;
      B[index] := s / k; {заносим в массив}
      inc(index); {переводим счетчик}
      size := index - 1; {обновляем размер массива для вывода}
    end
  end;
  {вывод массива B}
  writeln('массив B:');
  for index := 1 to size do write(B[index]:6:2);
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2018, 18:44
Помогаю со студенческими работами здесь

Сформировать новый массив, состоящий из нечетных элементов исходного массива
Написать программу через подпрограмму (т.е через функцию или процедуру) Сформировать(!) новый...

Составить одномерный массив из максимальных элементов столбцов матрицы.
Помогите,пожалуйста,решить Вводятся две целые матрицы размером 20х20 и 30х30. Для той у матрицы,...

Составить одномерный массив D из минимальных элементов столбцов матрицы В
сформировать двумерный массив В размером 12х3 с помощью генератора случайных чисел и вывести...

Двумерный массив. Среди элементов нечетных столбцов массива найти сумму отрицательных элементов
Дан массив Х (M,N). Среди элементов нечетных столбцов массива найти сумму отрицательных элементов.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru