Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Вариант 4

Автор: ASUS 23.01.2007 19:19

Здравствуйте! Помогите решить задачу !low.gif
Дан массив целых чисел, состоящих из 10 элементов. Заполнить его с клавиатуры. Найти:
- удвоенную сумму положительных элементов;
- вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго)

Помогите....

Автор: мисс_граффити 23.01.2007 22:20

сам что-то пробовал?
если да - показывай. если нет - пробуй....

Автор: ASUS 24.01.2007 0:02

Цитата(мисс_граффити @ 23.01.2007 18:20) *

сам что-то пробовал?
если да - показывай. если нет - пробуй....


нет... я эту тему плохо знаю...

Добавлено:
Вот все что получается и это просто сумма, а не удвоенная...
 
var
a:array[1..10] of integer;
pr,i:integer;
begin
{ввод массива не пишу}
pp:=1;
for i:=1 to 10 do if a[i]>0 then pp:=pp*a[i];
writeln('произв.=',pp);
end.

.

Автор: AnTiDoD 24.01.2007 0:14

Ты написал произведение всех элементов, а тебе же вроде нужна сумма? blink.gif

Автор: mamont001 24.01.2007 0:21

Цитата
for i:=1 to 10 do if a[i]>0 then pp:=pp*a[i];

Ето сумма елементов????? wacko.gif

Удвоенная сумма ето рр*2 smile.gif ;

Если я правильно понял второе...
 
{...........}
for i:= 2 to 10 do
if a[i]>a[i-1] then write(i);
{...........}


Автор: ASUS 24.01.2007 0:28

точно, совсем не заметил...

Автор: ASUS 24.01.2007 0:40

to mamont001
сама прогрограмма будет выгледеть так? правильно?


program nomer 2
var
a:array[1..10] of integer;
pr,i:integer;
begin
pp:=1;
for i:=1 to 10 do if a[i]>0 then pp:=рр*2[i];
writeln('сумма.=',pp);

for i:= 2 to 10 do
if a[i]>a[i-1] then write(i);

end.


Автор: mamont001 24.01.2007 1:17

Почти smile.gif


program nomer2;
var
a:array[1..10]of integer;
pp,i:integer;
begin
{Заполнение }
pp:=1;
for i:=1 to 10 do if a[i]>0 then pp:=pp+a[i];
writeln('удвоеная сумма.=',pp*2);

for i:= 2 to 10 do
if a[i]>a[i-1] then write(i);

end.


Автор: volvo 24.01.2007 1:23

Ну сказано же, удвоенная СУММА!!! Что ж вы одну и ту же ошибку-то за собой таскаете? wacko.gif

program nomer_2;
var
a:array[1..10] of integer;
s,i:integer;
begin
{Заполнение}
s:=0;
for i:=1 to 10 do if a[ i ]>0 then s:=s + a[ i ];
writeln('удвоеная сумма.=',2 * s);

for i:= 2 to 10 do
if a[ i ]>a[ i-1 ] then write(i, ' ');
end.


Добавлено:
mamont001, твой код не откомпилируется...

Автор: mamont001 24.01.2007 1:23

Просто все делается методом copy-paste smile.gif

Автор: ASUS 24.01.2007 2:37

volvo
Можно задать очень глупый вопрос... что надо писать вместо {Заполнение}?

Автор: mamont001 24.01.2007 2:42

Ето заполнение масива.
делаеться так:


for i:= 1 to 10 do
readln(a[i]);

. blum.gif


Автор: ASUS 24.01.2007 3:05

Всем БОЛЬШОЕ СПАСИБО!!! А mamont001 и volvo ОГРОМНОЕ СПАСИБО!!! respect.gif applause.gif respect.gif прога вроде работает...