Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. сначала вычисляется длина исходной цепочки символов; если она чётна, то в начало цепочки символов добавляется символ а, а если нечётна, то в конец цепочки добавляется символ я. в полученной цепочке символов каждая буква заменяется буквой, следующей за ней в алфавите (а — на б, б — на в и т. д., а я — на а получившаяся таким образом цепочка является результатом работы алгоритма. например, если исходной была цепочка бвгд, то результатом работы алгоритма будет цепочка бвгде, а если исходной была цепочка йнж, то результатом работы алгоритма будет цепочка коза. дана цепочка символов мяч. какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (т. е. применить алгоритм к данной цепочке, а затем к результату вновь применить алгоритм)? алфавит: абвгдеёжзийклмнопрстуфхцчшщъыьэюя.
Ответы
Const n=10; var a: array[1..n] of real; max,min: real; i: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' '); end; writeln; max: =a[1]; min: =a[1]; for i: =2 to n do begin if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end; writeln('max = ',max,' min = ',min); max: =max*max; min: =min*min; writeln('измененный массив: '); for i: =1 to n do if a[i]> 0 then a[i]: =a[i]*min else a[i]: =a[i]*max; for i: =1 to n do write(a[i]: 5); writeln; end. пример: исходный массив: 5 6 7 0 -6 5 -2 10 7 -2 max = 10 min = -6 измененный массив: 180 216 252 0 -600 180 -200 360 252 -200
Программа на паскале: const n=10; var a: array[1..n] of integer; max,min,imax,imin,s,i: integer; begin randomize; for i: =1 to n do begin a[i]: =random(51); write(a[i],' '); end; writeln; max: =a[1]; imax: =1; min: =a[1]; imin: =1; for i: =1 to n do begin if a[i]> max then begin max: =a[i]; imax: =i; end; if a[i]< min then begin min: =a[i]; imin: =i; end; end; writeln('max = ',max,' min = ',min); s: =0; if imax< imin then for i: =imax to imin do s: =s+a[i] else for i: =imin to imax do s: =s+a[i]; writeln('s = ',s); end. пример: 38 15 4 5 9 15 24 40 12 9 max = 40 min = 4 s = 97
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос: