:дан массив из 10 элементов, генерированных случайным образом(промежуток от -40 до 60). вывести все элементы массива, оканчивающиеся на 5 и делящиеся на 15. , надо!

berdyugin berdyugin    2   20.05.2019 02:00    2

Ответы
vladvladc vladvladc  13.06.2020 08:32

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.

 

 

 

 

 

 

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика