Запол­нить массив а [1..16] случайными целыми чис­лами в диапазоне от 1 до 20 и вывести на экран элементы массива со значениями, которые не делятся без остатка на 5.

На паскале.var a:array[1..16] of integer; i:integer; begin for i:=1 to 16 do read(a[i]); for i:=1 to 16 do if a[i] mod 5<>0 then write(a[i],' '); end.

......................