Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/21: Рейтинг темы: голосов - 21, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 05.01.2010
Сообщений: 20
1

Дан массив целых чисел, содержащий 10 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива

06.01.2010, 19:12. Просмотров 3872. Ответов 1
Метки нет (Все метки)


, потом все отрицательные элементы, потом нули...

Да прибудет с вами сила...
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2010, 19:12
Ответы с готовыми решениями:

Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива
Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши...

Дан массив целых чисел, содержащих 20 элементов, записать в этот же массив сначала все отрицательные числа и нули
Дан массив целых чисел, содержащих 20 элементов, записать в этот же массив сначала все...

дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b
дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы...

Дан массив A из N целых элементов. Занести в массив B положительные элементы массива А
Буду признателен за помощь с заданием, ибо я ничего не понимаю.

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
06.01.2010, 19:16 2
Лучший ответ Сообщение было отмечено Little_Sun как решение

Решение

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
uses crt;
const n=10;
var a,b:array[1..n]of integer;
i,k:integer;
 
begin
 clrscr;
 write('-> ');
 for i:=1 to n do read(a[i]);
 readln;
 k:=0;
 for i:=1 to n do if a[i]>0 then
 begin
  inc(k);
  b[k]:=a[i];
 end;
 for i:=1 to n do if a[i]<0 then
 begin
  inc(k);
  b[k]:=a[i];
 end;
 for i:=1 to n do if a[i]=0 then
 begin
  inc(k);
  b[k]:=a[i];
 end;
 for i:=1 to n do write(b[i],' ');
 readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2010, 19:16

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

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

Дан массив целых чисел. Заменить все элементы массива кратные 3, на третий элемент массива
Здравствуйте. Прошу опять помощи :-) Задача следующая: Дан массив целых чисел. Заменить все...

Дан массив целых чисел, содержащий 10 элементов,
Дан массив целых чисел, содержащий 10 элементов, записать в этот же массив сначала все...

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


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

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

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