Все положительные элементы массива А объединить в массив В

@glofiish808 · Регистрация: 18.10.2010

Студворк — интернет-сервис помощи студентам

дан массив А(10). Все положительные элементы массива А объединить в массив В, а все отрицательные в массив С. массивы А,В,С распечатать.

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
program zr;
var
a:array[1..10] of real;
b:array[1..10] of real;
c:array[1..10] of real;
i,n,m:integer;
begin
n:=0;
m:=0;
for i:=1 to 10 do begin
write ('масиив a[',i,']');
readln (a[i]);
If A[i] > 0 then
        begin
                B[n] := A[i];
            inc(n, 1);
        end;
        If A[i] < 0 then
        begin
            C[m] := A[i];
            inc(m, 1);
        end;
end;
writeln ('массив a:');
for i:=1 to 10 do writeln (a[i]);
writeln ('массив b:');
for i:=1 to n do writeln (b[i]);
writeln ('массив c:');
for i:=1 to m do writeln (c[i]);
readln
end.

где тут ошибка, или помогите составить программу правильно но как можно проще по учебному чтоб была

@SuPeR XaKer · 31.10.2010, 17:24

ноль не положительное и не отрицательное.

@glofiish808 · 31.10.2010, 17:28 **[ТС]**

а куда он записывается?

@SuPeR XaKer · 31.10.2010, 17:29

glofiish808
Все положительные элементы массива А объединить в массив В, а все отрицательные в массив С
третьего не дано.

@Puporev · 31.10.2010, 18:04

Сообщение от glofiish808

Все положительные элементы массива А объединить в массив В, а все отрицательные в массив С.

А нули никуда не пишутся....

@glofiish808 · 31.10.2010, 18:06 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
BitTorrent (версия 7.11 English) и Меню Настройки russiannick 15.11.2026 Пункты, отвечающие за отключение обновлений в BitTorrent версии 7. 11 (английской) Options Preferences General Language	Транслитерация текста с кириллицы на латиницу (вариант №4) Maks 15.11.2026 Что-то я перемудрил с предыдущими версиями, в этот раз сделал всё проще, обратившись к функции "СтрокаЛатиницей" из типового общего модуля "СтроковыеФункцииКлиент". В данной функции нет апострофов,. . .	BitTorrent (версия 4.3.9) и Меню Настройки russiannick 15.11.2026 В меню Настройки можно отключить автоматическое обновление программы. Карта этого меню приложена ниже. Нужный пункт выделен красным. Сервис Настройки Поведение	Транслитерация текста с кириллицы на латиницу (вариант №3) Maks 15.11.2026 Обновленная версия предыдущей обработки. Изменения коснулись букв: Ъ, Ы, Ь, Э, отображения которых зависят от положения реквизита "Транслитерация имён". Изменено отображение буквы Й. Добавлена. . .
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,875
	31.10.2010, 17:24
	ноль не положительное и не отрицательное. 0

@glofiish808 0 / 0 / 0 Регистрация: 18.10.2010 Сообщений: 55
	31.10.2010, 17:28 [ТС]
	а куда он записывается? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,875
	31.10.2010, 17:29
	glofiish808 Все положительные элементы массива А объединить в массив В, а все отрицательные в массив С третьего не дано. 0

@glofiish808 0 / 0 / 0 Регистрация: 18.10.2010 Сообщений: 55
	31.10.2010, 18:06 [ТС]
	помогите пожалуйста в других задачах вычислить значение функции принадлежит ли точка дан двумерный целочисленный массив размерности 4х5. Найти столбец,содержащий наименьшую сумму элементов. 0