IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Массивы
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 42
Пол: Мужской
Реальное имя: Ваня

Репутация: -  0  +


В одномерном массиве A из 15 элементов вычислить суммы и количество положительных, отрицательных и нулевых элементов. Исходный массив и результаты расчетов вывести на экран


--------------------
Skateboarding is not a crime
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 559
Пол: Мужской
Реальное имя: Бруно

Репутация: -  10  +


 Uses crt;
Const N = 15;
var ms : array [1..N] of integer;
i : integer;
pos,neg,nul : integer;
begin
pos:=0; neg:=0; nul:=0;
randomize;
for i:=1 to N do
begin ms[i]:=random(15)-7; write (ms[i]:3);
if ms[i] > 0 then inc (pos) else
if ms[i] < 0 then inc (neg) else inc(nul);
end;
writeln;
writeln ('pos ',pos);
writeln ('neg ', neg);
writeln ('nil ',nul);
readkey;
end.


Сообщение отредактировано: Tan -


--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Иллюзия мира
***

Группа: Пользователи
Сообщений: 180
Пол: Женский

Репутация: -  4  +


const n=14;
var
a:Array [0..n] of integer;
i,s1,s2,s3,count1,count2,count3:Integer;
begin
for i:=0 to n do
readln(a[i]);
s1:=0; s2:=0; s3:=0;
count1:=0;count2:=0;count3:=0;
for i:=0 to n do
begin
if a[i]>0 then begin
s1:=s1+a[i];
inc(count1);
end;
if a[i]<0 then begin
s2:=s2+a[i];
inc(count2);
end;
if a[i]=0 then begin
s3:=s3+a[i];
inc(count3);
end;
end;
writeln('>0: ',s1,' * ',count1);
writeln('<0: ',s2,' * ',count2);
writeln('=0: ',s3,' * ',count3);
readln;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Сумма нулевых элементов - что-то новенькое! smile.gif

З.Ы. Адель,зачем так сложно?Пост Таn проще!

Сообщение отредактировано: Артемий2 -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата
Пост Таn проще!
Возможно... Только вот он не делает того, что требовалось в задании ...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Профи
****

Группа: Пользователи
Сообщений: 559
Пол: Мужской
Реальное имя: Бруно

Репутация: -  10  +


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


--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Иллюзия мира
***

Группа: Пользователи
Сообщений: 180
Пол: Женский

Репутация: -  4  +


проще??
там токо сумма добавленна, в следствии чего begin\end появился

ps когда постила, Tan'овского не видела wink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Tan, ты уверен что компилятор гарантированно догадается за тебя обнулить счетчики перед циклом ? Я нет.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Профи
****

Группа: Пользователи
Сообщений: 559
Пол: Мужской
Реальное имя: Бруно

Репутация: -  10  +


окей, сейчас исправимся, хорошее замечание, я просто работаю с компилятором где это не обязательно делать.


--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


В таких моментах всегда лучше перестраховываться, у тебя дома один компилятор, а в школе/институте другой.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.09.2020 10:20
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name