Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Ребята помогите бедной студентке закрыть хвост! (задачи в паскале)
Ребята помогите бедной студентке закрыть хвост!
нужна помощь в написании программ на паскале.
задание1 Составить программу вычисления и выдачи на печать суммы
или произведения N элементов бесконечного числового ряда y=4(-6)8(-10)12…

задание2 Имеется массив А из N произвольных чисел А(N), среди которых есть положительные,
отрицательные и равные нулю. Найти номер последнего отрицательного элемента в последовательности. Например, если А={2,4,–3,0,5,–2,5}, результат: 6 (число –2).

задание3 Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры исходных Х и результирующих Y массивов с конкретными числами. Программа, естественно, должна обрабатывать любые числа для векторов размерностью N. Программа должна предъявлять исходные и новые массивы. результирующих Y массивов с конкретными числами. Программа, естественно, должна обрабатывать любые числа для векторов размерностью N. Программа должна предъявлять исходные и новые массивы. Заполнить Y нечетными элементами массива Х. 5 2 7 4 3 4 Х
5 7 3 Y

Добавлено (18.09.12, 20:04)
---------------------------------------------
что ни кто не знает что ли? помогите прошу вас!

Добавлено (26.09.12, 02:08)
---------------------------------------------
пипец вот и надейся на добрых людей эххх вы а я в вас так верила

1 | Автор: katja48 | 2012-09-26, 02:08   |  Репутация: [ + 0 ]
Quote (katja48)
задание2 Имеется массив А из N произвольных чисел А(N), среди которых есть положительные,
отрицательные и равные нулю. Найти номер последнего отрицательного элемента в последовательности. Например, если А={2,4,–3,0,5,–2,5}, результат: 6 (число –2).

var
i,n,a,result:integer;
begin
read(n);
for i:=1 to n do begin
read(a);
if a<0 then result:=i;end;
writeln(result);
end.

Остальные сделаю ближе к вечеру


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-09-26, 08:51   |  Репутация: [ + 211 ]
буду ждать они мне сейчас очень нужны
3 | Автор: katja48 | 2012-09-29, 20:35   |  Репутация: [ + 0 ]
3 | Автор: katja48 | 2012-09-29, 20:35   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Ребята помогите бедной студентке закрыть хвост! (задачи в паскале)
  • Страница 1 из 1
  • 1
Поиск: