Дан целочисленный массив состоящий из элементов, элементы массива принимают значение от 0 до 100. Составьте программу для вычисления произведения элементов массива, которые не четны и делятся на 3.

Question

Евгений Кузнецов

Информатика

1 февраля, 09:40

Дан целочисленный массив состоящий из элементов, элементы массива принимают значение от 0 до 100. Составьте программу для вычисления произведения элементов массива, которые не четны и делятся на 3.

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Ева Гришина · Answer 1

var a:array[0 ... 100] of integer; i, j, p:integer; begin for i:=0 to 5 do readln (a[i]); for i:=0 to 5 do begin for j:=i+1 to 4 do if (a[i] mod 3 = 0) and (a[i] mod 2 0) then if (a[j] mod 3 = 0) and (a[j] mod 2 0) then begin p:=a[j]*a[i]; write (p,' '); end; end; end.