Изабелла666
Опубликовано 7 лет назад по предмету Информатика от Изабелла666


Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal:

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

2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.

  1. Ответ
    Ответ дан AlanW

    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. 

     

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 1 год назад

На какие расы делятся население земли

kinda2007
Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников