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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.11.2015, 20:24   #1
Лидия 188
 
Регистрация: 20.10.2015
Сообщений: 5
По умолчанию Вычислить z=s1+s2/2, где s1-сумма положительных элементов массива X(8); s2-сумма отрицательных элементов массива Y(10) . обе суммы

Вычислить z=s1+s2/2, где s1-сумма положительных элементов массива X(8); s2-сумма отрицательных элементов массива Y(10) . обе суммы вычислять в одной подпрограмме.
Лидия 188 вне форума Ответить с цитированием
Старый 06.11.2015, 18:44   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
function summ(p:array of integer;znak:integer):integer;
var i:integer;
begin
   Result:=0;
   For i:=Low(p) to High(p) do
      If znak*p[i]>0 then
         Result:=Result+p[i];
end;

var x:array[1..8] of integer;
    y:array[1..10] of integer;
    i,s1,s2:integer;
    z:real;
begin
   Randomize;
   For i:=1 to 8 do
   begin
      x[i]:=-10+Random(21);
      Write(x[i],'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to 10 do
   begin
      y[i]:=-10+Random(21);
      Write(y[i],'  ');
   end;
   Writeln;
   Writeln;
   s1:=summ(x,1);
   s2:=summ(y,-1);
   z:=s1+s2/2;
   Writeln(z:5:5);
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов Aselyabel Visual C++ 1 22.01.2014 17:32
Сумма всех положительных элементов массива alexchromets Общие вопросы по Java, Java SE, Kotlin 5 04.03.2013 15:55
Сумма положительных элементов массива Monst3r Помощь студентам 6 25.12.2012 18:06
сумма первых двух положительных элементов массива Valechka Общие вопросы C/C++ 1 09.06.2012 00:45
сумма первых двух положительных элементов массива Valechka Помощь студентам 0 08.06.2012 21:22