Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Gruve
0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 30
#1

работа с компонентами массива

23.11.2009, 21:56. Просмотров 375. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста решить следующую задачку...
язык Pascal(TP);

В массиве из 10 целых чисел найти произведение элементов, расположенных между первым и последним отрицательными элементами
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2009, 21:56
Ответы с готовыми решениями:

работа с элементами массива в заданном интервале, чётные и нечётные элементы массива
Задача: Определить наибольший элемент среди нечётных по номеру элементов второй...

Организовать обмен компонентами между файлам
Даны текстовые файлы f1,f2,f3,f4,f5 . Организовать обмен компонентами между...

Обработка файлов с компонентами типа «запись»
Создайть файл Телефонный справочник. Выбрать и занести в отдельный файл по...

Организовать обмен компонентами между файлами
Даны текстовые файлы f1,f2,f3,f4,f5. Организовать обмен компонентами между...

Обработка файлов с компонентами типа «запись»
Создайте файл Студент. На каждом курсе найдите группу (группы), в которой...

3
yanyk1n
4331 / 1463 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
23.11.2009, 22:01 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var m:array[1..10]of integer;
c1,c2,i,p:integer;
 
begin
 clrscr;
 p:=1;
 write('Введите массив: ');
 for i:=1 to 10 do read(m[i]);
 readln;
 
 c1:=1;
 c2:=10;
 while m[c1]>=0 do inc(c1);
 while m[c1]>=0 do dec(c2);
 
 for i:=c1+1 to c2-1 do p:=p*m[i];
 
 writeln(p);
 readln;
end.
1
кот Бегемот
Платежеспособный зверь
8449 / 3900 / 1515
Регистрация: 28.10.2009
Сообщений: 10,101
23.11.2009, 22:03 #3
Цитата Сообщение от Gruve Посмотреть сообщение
Помогите пожалуйста решить следующую задачку...
язык Pascal(TP);

В массиве из 10 целых чисел найти произведение элементов, расположенных между первым и последним отрицательными элементами
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
a:array[1..10]of integer;
i,ot1,ot2,sum:integer;
begin
writeln('vvedite elementy massiva');
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<0 then ot2:=i;
for i:=10 downto 1 do
if a[i]<0 then ot1:=i;
sum:=1;
for i:=ot1+1 to ot2-1 do
sum:=sum*a[i];
writeln(sum);
end.
1
Gruve
0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 30
24.11.2009, 00:13  [ТС] #4
Цитата Сообщение от k1ry4 Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var m:array[1..10]of integer;
c1,c2,i,p:integer;
 
begin
 clrscr;
 p:=1;
 write('Введите массив: ');
 for i:=1 to 10 do read(m[i]);
 readln;
 
 c1:=1;
 c2:=10;
 while m[c1]>=0 do inc(c1);
 while m[c1]>=0 do dec(c2);
 
 for i:=c1+1 to c2-1 do p:=p*m[i];
 
 writeln(p);
 readln;
end.
Почему то он знак последнего отрицательного элемента не учитывает ! =(

Добавлено через 6 минут
k1ry4 одна ошибочка в коде у тебя , заменил и всё пошло , спасибо

ошибочка такова
while m[c1]>=0 do inc(c1);
while m[c2]>=0 do dec(c2); {вместо с1 как стояло}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2009, 00:13

Создать файл f, компонентами которого являются символьные массивы
Создать файл f, компоненты которого являются символьные массивы s1...s15....

Числовой файл разделить на два: с четными и нечетными компонентами
Доброго времени суток! Будьте добры помогите составить программу. 1)...

Дан файл F, компонентами которого являются действительные числа
Дан файл F, компонентами которого являются действительные числа. Найти разность...


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

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

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