Вариант 4, Задача с массивом Опции

[ASUS]

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

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

Сообщение отредактировано: ASUS - 23.01.2007 19:20

[мисс_граффити]

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

[ASUS]

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

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

Добавлено:
Вот все что получается и это просто сумма, а не удвоенная...

 
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]

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

[mamont001]

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

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

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

Если я правильно понял второе...

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

Сообщение отредактировано: mamont001 - 24.01.2007 0:24

[ASUS]

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

[ASUS]

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]

Почти

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.

Сообщение отредактировано: mamont001 - 24.01.2007 1:29

[volvo]

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

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]

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

[ASUS]

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

[mamont001]

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

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

.

[ASUS]

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