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

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

30.03.2014, 20:40. Показов 1935. Ответов 1
Метки нет (Все метки)

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

Добавлено через 5 часов 51 минуту
Вот я написал но чет не работает, где ошибка подскажите
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
var c, min, max:real;
    i, j, m, f: integer;
    a:array[1..100] of real;
    b:array[1..100] of real;
    begin
         randomize;
         m:=1;
         min:=0;
         read(m);
         max:=-1000;
         for i:=1 to m   do
             begin
                  a[i]:=random(100)-50;
                  if a[i]<0 then
                  begin
                       b[m]:=a[i];
                       int(m);
                  end;
             end;
          if m > 0 then
                  for j:=1 to m-1 do
                  begin
                      for i:=1 to m-1 do
                      begin
                           if (b[i]<min) and (b[i]>max) then min:=b[i];
                      end;
                  b[j]:=min;
                  max:=min;
                  end;
          for i:=1 to m-1 do
           write(a[i],'  ');
           writeln();
           for i:=1 to m-1 do
           write(b[i],'  ');
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2014, 20:40
Ответы с готовыми решениями:

Дан массив. Получить другой массив, состоящий только из чисел исходного массива, кратных 3
1) дан массив С(N). Получить другой массив, состоящий только из чисел исходного массива кратных 3,...

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

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

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

1
60 / 60 / 46
Регистрация: 25.11.2011
Сообщений: 259
31.03.2014, 15:49 2
Цитата Сообщение от VERNANDOO Посмотреть сообщение
read(m);
Цитата Сообщение от VERNANDOO Посмотреть сообщение
for i:=1 to m * do
замените на n, и должно заработать

Добавлено через 55 секунд
Цитата Сообщение от VERNANDOO Посмотреть сообщение
m:=1;
присвойте 0
Цитата Сообщение от VERNANDOO Посмотреть сообщение
b[m]:=a[i];
* * * * * * * * * * * *int(m);
а здесь поменяйте местами
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2014, 15:49
Помогаю со студенческими работами здесь

Дан одномерный массив. Получить из исходного массива матрицу K-го порядка.
Дан одномерный массив. Получить из исходного массива матрицу K-го порядка. Лишние элементы...

Дан одномерный массив А, состоящий из N целых чисел. Переписать из него в одномерный массив В все нечетные числа
У меня есть задание: Дан одномерный массив А, состоящий из N целых чисел. Переписать из него в...

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

Получить массив, состоящий только из нечетных чисел исходного массива
1.Составьте программу для решения следующей задачи: «Дан одномерный массив целого типа. Получить...


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

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

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