Создайте массив, содержащий 15 различных символов. отсортируйте его по убыванию. после этого определите и выведите на экран «наименьший» и «наибольший» символы.

Artem152006 Artem152006    3   08.03.2019 07:20    4

Ответы
rauf2007 rauf2007  24.05.2020 05:21

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика