Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/32: Рейтинг темы: голосов - 32, средняя оценка - 4.53
0 / 0 / 1
Регистрация: 09.12.2012
Сообщений: 13
1

Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)

09.12.2012, 11:08. Просмотров 6291. Ответов 1
Метки нет (Все метки)

Помогите найти ошибку.
Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program podschet;
var n,x,s,y,p,i:integer;A:array [1..n] of integer;
begin
x:=0; s:=0; y:=0; p:=0;
for i:=1 to N do
begin
write('Введите ', i, '-й элемент массива: ');
read(A[i]);
end;
for i:=1 to N do
begin
if A[i]<0 then
(y:=y+1) and (p:=p*A[i])
else
if A[i]>0 then
(x:=x+1) and (s:=A[i]+s);
end;
writeln('Сумма и число положительных элементов массива равна', x, s, 'Произведение и число отрицательных эл. массива равна', y, p);
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2012, 11:08
Ответы с готовыми решениями:

Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N).
Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного...

Подсчитайте число и сумму положительных, число и произведение отрицательных элементов массива
2.1. Подсчитайте число и сумму положительных, число и произведение отрицательных элементов...

Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива
Здравствуйте. Пожалуйста помогите решить следующие задачи: 1. Подсчитать число и сумму...

Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива
1. Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного...

1
Модератор
62241 / 46529 / 32077
Регистрация: 18.05.2008
Сообщений: 112,475
09.12.2012, 11:46 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
const nmax=20;
var n,x,s,y,p,i:integer;
    A:array [1..nmax] of integer;
begin
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
x:=0; s:=0; y:=0; p:=1;
for i:=1 to N do
 begin
  write('a[',i,']=');
  read(A[i]);
  end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to N do
 begin
  if A[i]<0 then
   begin
    y:=y+1;
    p:=p*A[i]
   end
  else if A[i]>0 then
   begin
    x:=x+1;
    s:=A[i]+s
   end
 end;
writeln('Сумма положительных=',s,' их количество=',x);
writeln('Произведение  отрицательных=',p,' их количество=',y)
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2012, 11:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива
Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного...

Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива
1. Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного...

Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива
Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного...

Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)
Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.