Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
pavlik
1

Получить число отрицательных членов и число членов, принадлижащих отрезку {1,2}

02.04.2012, 16:05. Просмотров 1224. Ответов 1
Метки нет (Все метки)

Даны натуральное число n, действительные числа a1,..,an. В последовательности a1,..,an, все не отрицательные члены принадлежат отрезку {1,2}, заменить на единицу. Кроме того получить число отрицательных членов и число членов, принадлижащих отрезку {1,2}
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2012, 16:05
Ответы с готовыми решениями:

Получить число отрицательных членов и число членов, принадлежащих отрезку [1, 2]
Доброго времени суток,помогите решить задание Общая постановка. Дана последовательность чисел...

Получить число отрицательных членов подпоследовательности и число нулевых членов всей последовательности
Program ms1; uses crt; const n=45; var a:array of integer; i,ko,kn:integer; begin clrscr;...

Даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an
даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных...

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

1
любитель покушать
684 / 636 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
02.04.2012, 16:42 2
Лучший ответ Сообщение было отмечено как решение

Решение

pavlik,
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
uses crt;
var a: array[1..20] of integer;
    i,n,pol,otr: byte;
begin
write('Введите n (не больше 20): ');
repeat
read(n);
until n in[1..20];
write('Массив:            ');
for i:=1 to n do begin
a[i]:=random(5)-2;
write(a[i],' ');
if a[i] in [1..2] then inc(pol);
if a[i]<0 then inc(otr);
end;
 
for i:=1 to n do begin
if a[i] in [1..2] then a[i]:=1;
end;
writeln;
write('Измененный массив: ');
for i:=1 to n do begin
write(a[i],' ');
end;
writeln;
writeln('Отрицательных элементов: ',otr);
writeln('Элементов в диапазоне [1,2]: ',pol);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2012, 16:42

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

Получить число отрицательных членов последовательности
Помогите, пожалуйста решить задачу в Паскале.. Даны целые числа a1, a2, … ,a45. Получить число...

Получить сумму положительных и число отрицательных членов указанной последовательности
Дано натуральное число n, целые числа a1, a2, ..., an. Получить сумму положительных и число...

Получить число отрицательных и число нулевых членов данной последовательности
Помогите, пожалуйста, сделать задачку и блок-схему к ней:) Даны целые числа A 1, A 2, …, A N ....

Получить количество отрицательных членов последовательности и число членов, принадлежащих отрезку
Дано натуральное n и целые a1...an. Получить количество отрицательных членов последовательности и...


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

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

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