Дан массив из 20 элементов целого типа , найти произведение нечетных кратных 3 элементов массива . язык паскаль)

Var

a: array[1..20] of integer;

i,x: integer;

Begin

x := 1;

write('Введите 20 чисел для заполнения массива: ');

for i := 1 to 20 do begin

readln(a[i]);

end;

for i := 1 to 20 do begin

if(a[i] mod 2 = 1) and (a[i] mod 3 = 0) then

x := x * a[i];

end;

writeln('Произведение чисел нечетных и кратных 3 = ', x);

End.

using namespace std;

#include <algorithm>

#include <iostream>

#include <vector>

#include <ctime>

int main() {

vector<int> arr;

srand(time(0));

int N = 10;

int min = 9999999, minIndex;

int average = 0;

for(int i = 1; i<=N; ++i) {

 arr.push_back(rand());

 cout << arr[i-1] << " ";

 if(arr[i-1]<min) {

  min = arr[i-1];

  minIndex = i-1;

 }

 average+=arr[i-1];

}

cout << endl << "Min: " << min << endl << "Average: " << average/N << endl;

swap(arr[minIndex], arr[arr.size()-1]);

for(int i = 1; i<=N; ++i) {

 cout << arr[i-1] << " ";

}

cout << endl << " > average: ";

for(int i = 1; i<=N; ++i) {

 if(arr[i-1]>average/N) {

  cout << arr[i-1] << " ";

 }

}

}

Модификация(көне латынша modіfіcatіo, латынша modus – өлшем, түр және fаcіo – жасаймын) – организмнің белгілері мен қасиеттерінің (фенотипінің) сыртқы орта факторларының әсерінен генотипке байланыссыз (тұқым қуаламай) өзгеруі. Модификациялық өзгергіштікті тудырушы факторларға сыртқы ортаның температурасы, жарық, қоректену жағдайы, т.б. жатады. Модификацияға ұшырамайтын белгі не қасиет болмайды, бірақ организмнің әрбір белгісінің өзгеруінің белгілі бір шегі болады, оны өзгергіштіктің реакция нормасы деп атайды. Организмдегі әр түрлі белгілердің реакция нормасы түрліше болады. Мысалы, сиырдың сүттілігінің реакция нормасы жоғары болады, ал сүтінің майлылығы мал тұқымына тән тұрақты қасиет. Бірақ сиырды дұрыс бағып-күтсе, оның сүттілігін арттырып, сүтінің майлылығын жоғарылатуға, яғни өзгертуге болады. Ал сиырдың түсін (реңін) алатын болсақ, ол өте аз өзгереді, яғни реакция нормасы өте төмен. Модификация мутациялық өзгергіштік сияқты тұқым қуаламайды, бірақ ұзақ уақыт сақталуы мүмкін. Модификация организмнің онтогенез барысындағы өзгеруінің сыртқы орта факторына бейімделуін қамтамасыз етеді.