Question

напишите программу которая генерирует 15 случайных чисел в диапозоне -50 и 50 и
выводит на экран числа оканчивающиеся на 1

Answer 1

Program gfh;
uses crt;
var a, b:integer;
Begin
clrscr;
a:=random(50+50+1)-50;
If (a<-9) and (a>9) then b:=a mod 10;
If (b=1) then writeln(b);
If (a=1) then writeln(a);
end.