Ввести целое число n. Создать список из n случайных чисел из диапазона [-988, 592]. Найти сумму абсолютных значении тех, которые не делятся на 2 и на 3.

183

485

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

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

ilyapleshakov29

Информатика

4,7(55 оценок)

from random import randint

s=0

n=int(input())

a=[randint(-988,592) for i in range(n)]

print(a)

for i in range (n):

if (a[i]%3!=0) and (a[i]%2!=0):

s+=a[i]

print(s)

emesiemesi95

Информатика

4,6(52 оценок)

//pascal abc.net v3.0 сборка 1111 //1 var ar: array[1..5] of integer; min,i: integer; begin min: =2147483647; for i: =1 to 5 do begin readln(ar[i]); if ar[i]< min then min: =ar[i]; end; write('min=',min); end.пример ввода: 6-6345пример вывода: min=-6//2var ar: array[1..20] of integer; i,s: integer; begin; randomize; s: =0; writeln('array: '); for i: =1 to 20 do begin; ar[i]: =random(101); write(ar[i]: 4); if ar[i] mod 7=0 then s: =s+ar[i]; end; writeln; write('sum=',s); end.пример работы программы: array: 13 23 70 67 0 82 16 66 48 54 46 99 100 75 48 33 1 88 9 73sum=70