Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Помогите решить через паскаль

Кристина Носова Ученик (119), закрыт 1 месяц назад
Массив состоит из 15 целых чисел в промежутке от -20 до 25 сформированый при помощи randomize Найти сумму элементов массива кратных 3 но не кратных 2
Лучший ответ
Ксения Райт Просветленный (42586) 2 месяца назад
 uses crt; 
var i, s: integer;
A: array[1..15] of integer;
begin
clrscr();
s := 0;
randomize();
for i := 1 to 15 do
begin
A[i] := random(46) -20;
write(A[i], ' ');
if (A[i] mod 3 = 0) and odd(A[i])
then s := s + A[i]
end;
writeln();
if s > 0 then writeln('S = ', s)
else writeln('Нет нечётных элементов кратных трём')
end.
Кристина НосоваУченик (119) 2 месяца назад
спасибо большое !
Ксения Райт Просветленный (42586) Кристина Носова, :-) ❄ ❄ ❄ ❄ ❄ ❄ ❄ ❄
Остальные ответы
Похожие вопросы