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

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

22.05.2012, 16:55. Просмотров 1174. Ответов 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.
Сделал так, но она проверяет только соседние числа. Что надо добавить?
http://www.cyberforum.ru/turbo-pascal/thread95487.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2012, 16:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа подсчета числа различных положительных элементов массива (Turbo Pascal):

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

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

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

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

Подсчет числа различных повторяющихся элементов массива
помогите задачки решать...... блин очень надо 1.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 Составьте программу подсчета числа различных повторяющихся элементов...

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

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

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


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

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

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