Const n=10; var a: array[1..n] of integer; i,max: integer; begin writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' '); end; writeln; max: =a[1]+a[10]; for i: =2 to n div 2 do if a[i]+a[n-i+1]> max then max: =a[i]+a[n-i+1]; writeln('max = ',max); end. пример: исходный массив: 3 9 -4 -4 10 -6 2 -8 -2 -1 max = 7
Спасибо
Ответ дал: Гость
24 * 32 = 768 символов на 1 странице
768 * 12 = 9216 символов на 1 странице
9216 * 1 = 9216 байт в буклете
9216 * 8 = 73728 бит в буклете
Ответ дал: Гость
program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.
Популярные вопросы