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

Дан одномерный целочисленный массив X размерности 12, x ε [-20,20]. Вывести на экран все неотрицательные элементы массива их количество

20.06.2013, 11:40. Показов 1240. Ответов 1
Метки нет (Все метки)

Дан одномерный целочисленный массив X размерности 12, x ε [-20,20]. Вывести на экран все неотрицательные элементы массива их количество. Выполнить сортировку массива по убыванию.
0

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2013, 11:40
Ответы с готовыми решениями:

Дан одномерный массив целых чисел. Вывести на экран все двузначные элементы этого массива.
Ребята, помогите пожалуйста! Дан одномерный массив целых чисел. Вывести на экран все двузначные...

Дан массив. Вывести на экран все неотрицательные элементы
Дан массив. Вывести на экран все неотрицательные элементы.

Дан целочисленный массив. Вывести все его нечетные элементы и их количество
Дан целочисленный массив. вывести все его нечетные элементы и их количество

Дан целочисленный массив А[1.5, 1.3]. Вывести на экран элементы массива, кратные 5 и их индексы
59. Дан целочисленный массив А. Вывести на экран элементы массива, кратные 5 и их индексы

1
35 / 35 / 33
Регистрация: 21.12.2012
Сообщений: 64
22.06.2013, 01:34 2
Лучший ответ Сообщение было отмечено seryoga_tyt как решение

Решение

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
const
  n=12;
var
  mas:array[1..n] of integer;
  t,j,c,a,i:integer;
begin
 randomize;
 writeln('Начальный массив: ');
 for i:=1 to n do
 begin
   mas[i]:=random(41)-20;
   write(mas[i],' ');
 end;
 writeln;
 write('Неотрицательные элементы: ');
 a:=0;
 for i:=1 to n do
   if (mas[i]>0) then
    begin
    write(mas[i],' ');
    a:=a+1;
    end;
 
 writeln('Количество: ',a);
 
 
 for i:=1 to n-1 do
begin
  c:=i;
 for j := i + 1 to n do
  if mas[c] < mas[j] then
   c := j;
 if c<>i then
   begin
    t := mas[i];
    mas[i] := mas[c];
    mas[c] := t;
   end;
end;
 writeln('Отсортированый массив');
 for i:=1 to n do
 write(mas[i],' ');
 
 
 readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2013, 01:34

Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся ровно 2 раза, и вывести размер получе
Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся ровно 2 раза, и...

Дан массив. Вывести на экран сначала его неотрицательные элементы, затем отрицательные
1)Дан массив. Вывести на экран сначала его неотрицательные элементы, затем отрицательные. Помогите...

Дан массив. Вывести на экран сначала его неотрицательные элементы, затем отрицательные
Дан массив. Вывести на экран сначала его неотрицательные элементы, затем отрицательные.

Дан одномерный целочисленный массив. Определить, образуют ли элементы массива определенную часть последовательности Фибаноччи
Дан одномерный целочисленный массив. Определить, образуют ли элементы массива определенную часть...


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

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

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