пример программы для паскаль
Program a;
const n = 50;
var
i:byte;
B:array[1..n] of word;
procedure proc(A:array of word);
begin
for i:=1 to n do
if((129 <= A[i]) and (A[i] <= 160)) or <span> </span>
((161 <= A[i]) and (A[i] <=175)) or <span> </span>
((225 <= A[i]) and (A[i] <= 242)) then
Writeln('<span>index = ',i+1</span>,'<span>; bukva -</span> ''',char(A[i]),'''',' <span> A[i] =</span> ',A[i]);
end;
Begin
writeln;
for i:=1 to n do <span> </span>
B[i] := random(300);
for i:=1 to n do Begin <span> </span>
write(' ',i,' <span>=</span> ',B[i]);
if (i mod 5 = 0) then writeln;
end;
writeln;
writeln;
proc(B);
readln;
end.