Var
m, n: integer; r: real;
begin
n:=random(-9999,9999);
m:=random(-9999,9999);
if m<>0 then begin
r:=((n)mod(m));
writeln(r); end
else writeln('Выполнение деления невозможно, т.к. знаменатель равен нулю. Перезапустите программу для подбора других значений');
<span>end.</span>
Написал на C# но в принципе код очень простой поэтому сможешь переписать на любой язык)
Console.WriteLine("Введите А");
int a = Convert.ToInt16(Console.ReadLine());
if (a >0)
{ Console.WriteLine("---------------------------");
Console.WriteLine("Число "+a+" положительное"); }
if (a < 0) { Console.WriteLine("---------------------------");
Console.WriteLine("Число " + a + " отрицательное"); }
if (a == 0) { Console.WriteLine("---------------------------");
Console.WriteLine("Вы ввели 0"); } <span>
Console.ReadLine();</span>
Var a: array[1..5] of integer;
x, i: integer;
begin
for i := 1 to 5 do
begin
a[i] := random(5);
write(a[i],' ');
end;
writeln('Введите x');
readln(x);
for i := 1 to 5 do
if a[i] = x then writeln('Иксу равен ', i, '-ый элемент массива');
end.
<span>Здесь oписан массив a из 88 целочисленных значени. При выполнении этого оператора в памяти компьютера будет выделено 88 ячеек целого типа.</span>