// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var dig:=['0'..'9']; var glas:=['a','e','i','o','u','y']; var sogl:set of char:=['a'..'z']-glas; var alpha:='0123456789'; var n:=ReadInteger('Количество символов:'); var a:=SeqRandom(n,1,36).Select(k->alpha[k]).ToArray; a.Println; a.Where(c->c in glas).Concat(a.Where(c->c in dig)).ToArray. Concat(a.Where(c->c in sogl)).Println end.
Пример Количество символов: 50 xkdh00nhw8qr32cgcxiwm8ewbnqagmiquew3e6bc7rs2a05ids ieaiueeai008328367205
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=MatrRandom(10,15,-50,50); a.Println(4); var amax:=-100; var amin:=100; foreach var x in a do if x>amax then amax:=x else if x<amin then amin:=x; Writeln('Amax-Amin=',amax-amin) end.
// Внимание! Если программа не работает, обновите версию!
begin
var dig:=['0'..'9'];
var glas:=['a','e','i','o','u','y'];
var sogl:set of char:=['a'..'z']-glas;
var alpha:='0123456789';
var n:=ReadInteger('Количество символов:');
var a:=SeqRandom(n,1,36).Select(k->alpha[k]).ToArray;
a.Println;
a.Where(c->c in glas).Concat(a.Where(c->c in dig)).ToArray.
Concat(a.Where(c->c in sogl)).Println
end.
Пример
Количество символов: 50
xkdh00nhw8qr32cgcxiwm8ewbnqagmiquew3e6bc7rs2a05ids
ieaiueeai008328367205