Составьте программку которая сформировывает массив из шестнадцати случайных целых чисел от

Решение задачки на языке PascalABC:

Program n1;

Var a:array[1..16] of integer; i:integer; //Описываем переменные

Begin

For i:=1 to 16 do Begin //цикл на перебор массива

 a[i]:=random(40)-20; //наполняем массив

 write(a[i],' '); //выводим значение каждого элемента массива

End;

writeln; //пропускаем строчку при выводе

For i:=1 to 16 do Begin //цикл на перебор массива

 if a[i] mod 2 = 0 then //условие чётности

   writeln('Элемент со значением (',a[i],') под номером ',i,' является чётным'); //вывод чётных частей и их номеров

End;

End.