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

Ребят помогите плиз, очень надо!

1

Ответы и объяснения

2013-04-17T14:15:39+04:00

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.