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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.02.2015, 09:15   #1
Звездочка 22
Новичок
Джуниор
 
Регистрация: 01.02.2015
Сообщений: 6
Радость Pascal. Найти сумму и произведение положительных элементов массива

Задача скрыта, спасибо...

Последний раз редактировалось Звездочка 22; 01.02.2015 в 12:55. Причина: скрыто
Звездочка 22 вне форума Ответить с цитированием
Старый 01.02.2015, 10:34   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ответ тот же - похвастайся попытками. Не стыдись )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 01.02.2015, 11:56   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var i,s,pr:integer;
    p:array[1..15] of integer;
begin
   Randomize;
   For i:=1 to 15 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i],'  ');
   end;
   Writeln('');
   s:=0;
   pr:=1;
   For i:=1 to 15 do
      If p[i]>0 then
      begin
         s:=s+p[i];
         pr:=pr*p[i]
      end;
   Writeln('s = ',s,'; pr = ',pr);
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 01.02.2015, 12:21   #4
Звездочка 22
Новичок
Джуниор
 
Регистрация: 01.02.2015
Сообщений: 6
По умолчанию

спасибо ))) у меня вообще ужас получился -
Код:
Var A:
Array[1..20] Of Integer;
i, n, s, p:
Integer;
Begin
Write ('n=');
Readln (n);
For i:=1 To n Do
Readln (A[i]); {ввод } s:= 0; p:=1; For i:=1 To n Do {обработка }
 If (A[i] mod 2 <>0)
 Then Begin s:=s+A[i];
 p:= p*A[i]
 End;
 Writeln ('s=', s, 'p=', p);
 Readln
 End.

Последний раз редактировалось Stilet; 01.02.2015 в 12:44.
Звездочка 22 вне форума Ответить с цитированием
Старый 01.02.2015, 12:24   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Пожалуйста! Эта программа неправильная, копируй мою
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal. Дана квадратная матрица. Найти сумму элементов отдельно главной и побочной диагоналей. Вывести произведение найденных /// Звездочка 22 Паскаль, Turbo Pascal, PascalABC.NET 4 01.02.2015 12:28
Найти сумму положительных элементов двумерного массива Denis26 Visual C++ 2 23.10.2013 15:09
Произведение положительных элементов гл. диагонали (Pascal) Snake_009 Помощь студентам 2 07.02.2012 10:38
Pascal. Найти сумму отрицательных и сумму положительных элементов линейного массива. badname47 Паскаль, Turbo Pascal, PascalABC.NET 1 07.02.2012 06:29
одномерный массив. Произведение положительных элементов массива PROkaZZZniK Помощь студентам 2 10.12.2011 01:02