Var a: array[1..5] of Integer;
rand,count,i: Integer;
begin
for i:=1 to 5 do
begin
a[i]:=Random(100);
writeln(a[i]);
if (a[i] mod 5=0) and (a[i] mod 10=0) then Inc(count);
end;
writeln('Кол-во: ',count);
end.
Import java.util.*;
import java.lang.*;
import java.io.*;
class Ideone
{
public static void main (String[] args) throws java.lang.Exception
{
Scanner in = new Scanner(System.in);
int a = in.nextInt();
int b = in.nextInt();;
if (a % b == 0 || b % a == 0) {
System.out.println("Да, одно из чисел является делителем
другого");
} else {
System.out.println("Нет, ни одно из чисел не является делителем
другого");
}
}
}
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var a:=ArrRandom(30,-30,30); a.Println;
Sort(a); a.Println
end.
<u>Пример</u>
-19 19 19 -18 13 -19 -3 13 7 -11 7 0 -12 -21 8 9 -30 27 -18 18 -28 25 -19 -12 -26 -23 1 -15 -4 -9
-30 -28 -26 -23 -21 -19 -19 -19 -18 -18 -15 -12 -12 -11 -9 -4 -3 0 1 7 7 8 9 13 13 18 19 19 25 27