Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Svistunov
1 / 1 / 0
Регистрация: 22.05.2012
Сообщений: 37
#1

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

22.05.2012, 16:55. Просмотров 1098. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Программа подсчета числа различных положительных элементов массива (Turbo Pascal):

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

Подсчет числа различных положительных элементов одномерного массива - Turbo Pascal
составьте программу подсчета числа различных положительных элементов одномерного массива A(Q)

Программа для подсчета количества элементов массива - Turbo Pascal
Помогите пожалуйста составить программу. Задание: Составить программу подсчета количества элементов массива С, лежащих в интервале (a, b).

Составьте программу подсчета числа наименьших по модулю элементов одномерного массива - Pascal
1. Составьте программу подсчета числа наименьших по модулю элементов одномерного массива А(p); 2. Составьте программу вычисления суммы...

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

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

2
Marquis
2 / 2 / 0
Регистрация: 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 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Составьте программу подсчета числа различных гласных букв в словах - Turbo Pascal
Составьте программу подсчета числа различных гласных букв в словах X, Y, Z.

Составить программу подсчета числа различных компонент целочисленного файла - Turbo Pascal
Составить программу подсчета числа различных компонент целочисленного файла. Результат нужно записать в файл. Помогите пожалуйста!!!


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

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

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