Program z20; Var n, sum, i:integer; a: array [1..1000] of integer;Begin write('Введите кол-во чисел = '); readln(n); for i:=1 to n do begin write('Число [', i, '] = '); readln(a[i]); end; sum:= 0; for i:=1 to n do if (a[i] mod 5 = 0) and (a[i] mod 3 <> 0) then sum:= sum + a[i]; writeln('Сумма чисел = ', sum);End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
