Создайте массив, содержащий 15 различных символов. Отсортируйте его по убыванию. После этого определите и выведите на экран «наименьший» и «наибольший» символы.
var a:array[1..15] of char;
i,min,max:integer;
Begin
min=1;
max=1;
for i:= 1 to 15 do begin
a[i]:= chr(random(256));
if a[min]>a[i] then min:=i;
if a[max]<a[i] then max:=i;
end;
writeln(a[min], a[max]);
End.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var a:array[1..15] of char;
i,min,max:integer;
Begin
min=1;
max=1;
for i:= 1 to 15 do begin
a[i]:= chr(random(256));
if a[min]>a[i] then min:=i;
if a[max]<a[i] then max:=i;
end;
writeln(a[min], a[max]);
End.