profile
Размещено 4 года назад по предмету Информатика от ulis2806

Помогите написать программу!!!

Дан целочисленный массив M из 15 элементов. Элементы массива могут принимать целые значения от -500 до 500 и вводятся с клавиатуры. Найти и вывести:
1. Сумму квадратов отрицательных элементов. Гарантируется, что в исходном массиве есть хотя бы один отрицательный элемент.
2. Произведение элементов массива, имеющих четное значение и стоящих на четных местах. Гарантируется, что в исходном массиве есть хотя бы один такой элемент.
3. Количество элементов массива, превосходящих по модулю 100. Гарантируется, что в исходном массиве есть хотя бы один такой элемент.

  1. Ответ на вопрос
    Ответ на вопрос дан srzontmp
    const maxn=15;
    var a: array[1..maxn] of integer;
        skv,prod,gr,i: integer;
    begin
      writeln('введите ',maxn,' чисел');
      skv:=0;  prod:=1;
      gr:=0;
      for i:=1 to maxn do
      begin
        write(i,': ');  readln(a[i]);
        if a[i]<0 then skv:=skv+a[i]*a[i];
        if (a[i] mod 2 = 0) and (i mod 2 = 0) then
           prod:=prod*a[i];
        if abs(a[i])>100 then gr:=gr+1;
      end;
      writeln('сумма квадратов отрицательных:  ',skv);
      writeln('произведение четных на четных местах:  ',prod);
      writeln('больше 100 по модулю:  ',gr);
    end.


    введите 15 чисел
    1: 151
    2: -231
    3: 104
    4: 19
    5: 36
    6: -112
    7: 5
    8: 8
    9: 11
    10: 13
    11: 45
    12: 5
    13: 6
    14: 17
    15: 19
    сумма квадратов отрицательных:  65905
    произведение четных на четных местах:  -896
    больше 100 по модулю:  4



Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

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