Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal: 1.Дан массив целых чисел, состоящий из 10 элементов.Заполнить его с клавиатуры. Найти: -Удвоенную сумму положительных элементов;-вывести индексы тех ...
Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal: 1.Дан массив целых чисел, состоящий из 10 элементов.Заполнить его с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго). 2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.
Гость
Ответ(ы) на вопрос:
Гостьvar i,s,p:integer; a:array [1..100] of integer; begin s:=0; p:=0; writeln('Vvedite masiv a:'); for i:=1 to 10 do begin write('a[',i,']='); readln(a[i]); end; for i:=1 to 10 do begin if a[i]>0 then s:=s+a[i]; end; s:=s*2; writeln('Udvoennaya suma polozhitelnih elementov=',s); writeln('Indexi elementov kotorie bolshe prediduschego:'); writeln; for i:=2 to 10 do begin if a[i]>a[i-1] then write(i,', '); end; for i:=2 to 10 do begin if ((a[i]>=0) and (a[i-1]>=0)) or ((a[i]<0) and (a[i-1]<0)) then p:=p+1; end; writeln; if p>0 then writeln('Masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln('Masiv ne imeet pari sosednih elementov s odnakovimi znakami'); readln(s); end.
Не нашли ответ?
Похожие вопросы