Регистрация
ogne1arp
22.09.2022 10:44
Информатика
Есть ответ 👍

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

133
441
Посмотреть ответы 2

Ответы на вопрос:

Denair
Denair
4,5(20 оценок)
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
Tanya6164
Tanya6164
4,7(29 оценок)

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

 

 

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

 

 

 

Популярно: Информатика