Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Svistunov
1 / 1 / 4
Регистрация: 22.05.2012
Сообщений: 37
1

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

22.05.2012, 16:55. Просмотров 1212. Ответов 2
Метки нет (Все метки)

Условие: СП подсчета числа различных положительных элементов ОМ A(Q).
Pascal
1
2
3
4
5
6
7
8
9
10
var a:array [1..100] of real;
i,n:integer; s:real;
begin
write('N= '); readln(n);
for i:=1 to n do read (a[i]);
s:=0;
for i:=1 to n do
if (a[i]>0) and (a[i]<>a[i+1]) then s:=s+1;
writeln('S= ',s:2:0);
end.
Сделал так, но она проверяет только соседние числа. Что надо добавить?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2012, 16:55
Ответы с готовыми решениями:

Составьте программу подсчета числа различных повторяющихся элементов массива C(M,P).
Составьте программу подсчета числа различных повторяющихся элементов массива...

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

Программа для подсчета количества элементов массива
Помогите пожалуйста составить программу. Задание: Составить программу подсчета...

Составьте программу подсчета числа наименьших по модулю элементов одномерного массива
1. Составьте программу подсчета числа наименьших по модулю элементов...

Составьте программу подсчета числа различных букв в слове
Составьте программу подсчета числа различных букв в слове

2
Marquis
2 / 2 / 2
Регистрация: 28.02.2012
Сообщений: 24
22.05.2012, 20:30 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a:array[1..10] of integer;
    b:array[1..10] of integer;
    i,j,k,n,s:integer;
begin
write('N= '); readln(n);
for i:=1 to n do read(a[i]);
 
 
for i:=1 to n do
if a[i]>0 then begin s:=0;
for j:=1 to k do
if a[i]=b[j] then s:=1;
if s=0 then begin k:=k+1; b[k]:=a[i]; end;
end;
write('k=',k);
end.
1
Svistunov
1 / 1 / 4
Регистрация: 22.05.2012
Сообщений: 37
22.05.2012, 20:34  [ТС] 3
Marquis, спасиба памог мне ришить задачу в школе пять паставят палюбому все аднакласники абзавидуюца захади в тим фортариес дам шапку какуюнеть
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2012, 20:34

Подсчет числа различных повторяющихся элементов массива
помогите задачки решать...... блин очень надо 1.1 Составьте программу...

Подсчет числа различных повторяющихся элементов массива
1.1 Составьте программу подсчета числа различных повторяющихся элементов...

Составить процедуру подсчета количества N элементов одномерного массива, значения которых больше числа Р
Составить процедуру подсчета количества N элементов одномерного массива,...


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

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

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