Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 1
Регистрация: 22.04.2010
Сообщений: 40
1

Переписать положительные элементы масива Х, в одномерный массив У, подсчитать их количество.

03.05.2010, 20:56. Показов 1338. Ответов 1
Метки нет (Все метки)

помогите завтра крайний срок

1. Переписать положительные элементы масива Х[i,j]m,m(1<=n<=10 1<=m<=15), в одномерный массив У та подсчитать их количество
2. С массива [Bij]m,n построить массив С, исполняя деление каждого елемента массива В на min елемент в столбце, в коором он находитца (1<=n<=15 1<=m<=25).

Народ очень нужно, просто зашываюсь

Добавлено через 30 минут
ну очень нужно
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.05.2010, 20:56
Ответы с готовыми решениями:

переписать положительные элементы массива х в массив у и подсчитать их количество
дан массив х(70)-1&lt;=xi&lt;=1. переписать положительные элементы массива х в массив у и подсчитать их...

Переписать положительные элементы матрицы в одномерный массив
Дана матрица размерности 2 на 3. Положительные элементы матрицы переписать подряд в одномерный...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

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

1
105 / 102 / 89
Регистрация: 18.05.2009
Сообщений: 201
03.05.2010, 21:51 2
Лучший ответ Сообщение было отмечено torn072 как решение

Решение

1. я так понял ,что X[i,j]n,m
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
program zad;
const
n=10;
m=15;
var
x:array[1..n,1..m] of integer;
i,j:integer;
kol:integer;
y:array[1..100] of integer;
begin
  randomize;
  kol:=0;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      x[i,j]:=random(101)-50;
      if x[i,j]>0 then
      begin
        kol:=kol+1;
        y[kol]:=x[i,j];
      end;
      write(x[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  for i:=1 to kol do
  write(y[i]:4);
  writeln;
  writeln;
  writeln('колличество положительных элементов равно ',kol);
  readln;
end.
Добавлено через 43 минуты
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
program zad;
const
n=15;
m=25;
var
b:array[1..n,1..m] of real;
i,j:integer;
k:integer;
c:array[1..100] of integer;
minn:array[1..100] of real;
min:real;
begin
  randomize;
  writeln('исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      b[i,j]:=random(11)-5;
      write(b[i,j]:2:0);
    end;
    writeln;
  end;
  writeln;
  writeln;
  j:=1;
 
   repeat
   min:=b[1,j];
   for i:=1 to n do
   begin
     if b[i,j]<=min then
     min:=b[i,j];
     minn[j]:=min;
   end;
   j:=j+1;
   until j>m;
   writeln;
   writeln;
   writeln('преобразованный массив:');
   for i:=1 to n do
   begin
     for j:=1 to m do
     begin
       b[i,j]:=b[i,j]/minn[j];
       write(b[i,j]:2:1);
     end;
     writeln;
   end;
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.05.2010, 21:51

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Переписать положительные элементы главной диагонали матрицы В (n x m) в одномерный массив Y
Составить программу в среде Delphi (VCL-application) в соответствии со следующими требованиями:...

Переписать положительные элементы главной диагонали, матрицы в одномерный массив Y
Задание: Переписать положительные элементы главной диагонали, матрицы в одномерный массив Y. В...

Переписать наибольшие положительные элементы каждого столбца матрицы в одномерный массив
Переписать наибольшие положительные элементы каждого столбца матрицы СX(m,n), в одномерный массив O

Положительные элементы матрицы переписать подряд в одномерный массив (блок схема)
Дано матрицу размерности N на M. Положительные элементы матрицы переписать подряд в одномерный...


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

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

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