Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2008, 17:33   #1
Kold
Новичок
Джуниор
 
Регистрация: 28.11.2008
Сообщений: 2
По умолчанию Помогите пожалуйста с задачей.

Здравствуйте, помогите Пожалуйста решить задачу. Вычислить z=s1+s2/2 где s1-сумма положительных элементов массива X(50) s2-сумма отрицательных элементов массива Y (60).
---
Kold вне форума Ответить с цитированием
Старый 12.12.2008, 20:20   #2
Sm1Le
Форумчанин
 
Аватар для Sm1Le
 
Регистрация: 31.10.2008
Сообщений: 500
По умолчанию

Код:
sum:=0;
for i:=1 to 50 
 begin
  if x[i]>0 then 
   sum:=sum+x;
 end;

sum1:=0;
for i:=1 to 60 
 begin
  if y[i]<0 then 
   sum1:=sum1+x;
 end;

z:=sum+sum1/2;
-додумайте ... =)
Skype : UASm1Le.
Sm1Le вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с задачей пожалуйста Apache Паскаль, Turbo Pascal, PascalABC.NET 2 07.10.2008 20:35
Помогите пожалуйста с задачей!!! Aleo13 Паскаль, Turbo Pascal, PascalABC.NET 7 03.10.2008 16:16
Пожалуйста, помогите с задачей по C++ Maksimym Помощь студентам 2 10.01.2008 23:18
Помогите пожалуйста с задачей по С++ Riddick2013 Помощь студентам 2 11.11.2007 16:54