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

158

474

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

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

МАВ03022004

Информатика

4,4(21 оценок)

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

Аааааяяяяяннннн

Информатика

4,4(44 оценок)

ответ: поменяешь на украинский язык 'названия предметов'

from random import randint

i = ['камень', 'ножницы', 'бумага']

while True:

hod = input('Введите ваш код: ')

hodk = randint(1, 3)

if hod == i[hodk-1]:

print('Ничья')

print('Мой ход был', i[hodk-1])

if i[hodk-1] == 'камень' and hod == 'бумага':

print('Вы выиграли')