:дан массив из 10 элементов, генерированных случайным образом(промежуток от -40 до 60). вывести все элементы массива, оканчивающиеся на 5 и делящиеся на 15. , надо!
program massiv; var a:array[1..10] of integer; i:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(100)-40; if ((a[i] mod 10)=5)and((a[i] mod 15)=0)then writeln(a[i]) else writeln('òàêèõ ýëåìåíòîâ íåò'); end;end.
program massiv;
var a:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(100)-40;
if ((a[i] mod 10)=5)and((a[i] mod 15)=0)then writeln(a[i]) else writeln('òàêèõ ýëåìåíòîâ íåò');
end;end.