Переведите целые числа из десятичной системы счисления в восьмеричную 513 600 2010
247
467
Ответы на вопрос:
Консольное приложение: const n=9; var l: array[1..n] of integer; i,max,imax,min,imin,s: integer; begin randomize; writeln('массив l: '); for i: =1 to n do begin l[i]: =random(51); write(l[i]: 4); end; writeln; max: =l[1]; imax: =1; min: =l[1]; imin: =1; for i: =2 to n do begin if l[i]> max then begin max: =l[i]; imax: =i; end; if l[i]< min then begin min: =l[i]; imin: =i; end; end; writeln('max = l[',imax,'] = ',max); writeln('min = l[',imin,'] = ',min); s: =0; if imax> imin then for i: =imin+1 to imax-1 do s: =s+l[i] else for i: =imax+1 to imin-1 do s: =s+l[i]; writeln('s = ',s); end. пример: массив l: 31 49 41 15 9 47 37 11 27 max = l[2] = 49 min = l[5] = 9 s = 56
Популярно: Информатика
-
aidarair12.03.2023 05:50
-
kristinakalash26.09.2022 09:17
-
HimikHEH23.09.2020 18:55
-
Alex1t024.01.2023 17:07
-
Ева17128208.05.2023 15:22
-
albina010101111.06.2023 09:41
-
ЗдаровАаА11.03.2021 11:00
-
gatilovasofiya12.03.2023 03:56
-
Mrsozic30.09.2022 02:40
-
Dash52804.12.2022 16:46