Организуйте массив, содержащий 20 различных символов. отсортируйте его по возрастанию.

164

232

Посмотреть ответы 3

Ответы на вопрос:

Fox00811

Информатика

4,8(81 оценок)

Попробуем сделать сортировку букв латинского алфавита. const n = 20; var a: array[1..n] of char; i, j: integer; t: char; begin randomize; writeln('исходный массив'); for i : = 1 to n do begin a[i] : = chr(random(26)+ord('a')); write(a[i],' ') end; writeln; for i : = 1 to n-1 do for j : = 1 to n-i do if a[j] > a[j+1] then begin t : = a[j]; a[j] : = a[j+1]; a[j+1] : = t end; writeln('отсортированный по возрастанию массив'); for i : = 1 to n do write(a[i],' '); writeln end. тестовое решение: исходный массив g z l h x a r e c f g x o t c l n u d l отсортированный по возрастанию массив a c c d e f g g h l l l n o r t u x x z

SemenBio

Информатика

4,8(1 оценок)

Program z1; var a: array [1..20] of integer; i: integer; begin for i: =1 to 20 do begin a[i]: =i end; for i: =1 to 20 do begin write (a[i]); end; end. это если просто нужно заполнить массив

tatka22345

Информатика

4,5(54 оценок)

program pr1; uses crt; var n,i: integer; x: real; beginclrscr; readln(n); for i: =1 to n do if exp(i*ln(2))< n then writeln(i); end.

program pr1; uses crt; var i,r,y: integer; a,x: real; beginclrscr; readln(x,y); i: =1; while x< =y do begin x: =x+0.1*x; i: =i+1; end; writeln(i); end.