Мы проходим сейчас одномерные массивы с ветвлением. Но только ничего понять немогу... Помогите решить 2 задачи:
№1 Условие: Создать произвольный массив. Из его элементов построить новый массив, элементы которого-отрицательные числа. Распечатать созданный массив.
№2 Условие: Создать произвольный массив. Из его элементов построить новый массив, элементы которого дробные числа. Распечатать созданный массив (только дробные числа)...........Помогите !!!!!

Первым делом FAQ и поиск :

Массывы+Матрицы+Типичные задачи

будут конкренные вопросы, спашивай.

вот тебе решение второй задачи :

countY := 0;
for i := 1 to n do
 if x[i]=trunc(x[i]) then begin // число целое, заносим его в массив Y
   inc(countY); // получем номер этого элемента в массиве Y
   y[countY] := x[i]; // запоминаем число в массиве Y
end;

для первой тоже самое, только проверка, отрицательное ли число ... неужели так сложно ?

if x[i]=trunc(x[i]) then begin // число целое, заносим его в массив Y

Разве trunc это дробное число?

Ну елки-палки, значи if x[i] <> trunc(x[i]) then ... не ужели так трудно было знак поменять ?

а trunc - отсекает дробную чусть, то есть trunc(1.23)=1 и trunc(1.99)=1

Вот это я и хотела услышать
Просто человек задал конкретный вопрос и соответсвенно получил конкретный ответ. А в ответ было сказано неправильно. И не надо сразу же ругаться, ёлки палки - возьмите да исправьте.

А ты, я так понимаю, адвокат этого человека? Какое ТЫ имеешь отношение к этому вопросу? Ну вот возьми в следующий раз, исправь программу и выложи сюда, и мы будем в ней ошибки искать... А то из твоих 39 сообщений на форуме я ни одной строки ТВОЕГО кода так и не увидел. Только критика чужого...

Напишите полностью 2 задачу! ПЛИИИИИИИИИЗ!

М

Guest, из сообщений №3 и №5, You are Welcome А мы посмотрим...