Здравствуйте! Помогите решить задачу
Дан массив целых чисел, состоящих из 10 элементов. Заполнить его с клавиатуры. Найти:
- удвоенную сумму положительных элементов;
- вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго)
Помогите....
сам что-то пробовал?
если да - показывай. если нет - пробуй....
.
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.
Ты написал произведение всех элементов, а тебе же вроде нужна сумма?
точно, совсем не заметил...
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.
Почти
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.
Ну сказано же, удвоенная СУММА!!! Что ж вы одну и ту же ошибку-то за собой таскаете?
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.
Просто все делается методом copy-paste
volvo
Можно задать очень глупый вопрос... что надо писать вместо {Заполнение}?
Ето заполнение масива.
делаеться так:
.
for i:= 1 to 10 do
readln(a[i]);
Всем БОЛЬШОЕ СПАСИБО!!! А mamont001 и volvo ОГРОМНОЕ СПАСИБО!!! прога вроде работает...