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
Спасибо
Ответ дал: Гость
program xxx; var i, j, k, n, p, s : integer; a : array [1..20] of integer; begin write ('введите количество инверсий -'); readln(k); write ('введите количество ламп -'); readln(n); for i: =1 to n do a[i]: =0; for i: =1 to k do begin write ('введите инверсию p-'); readln(p); j: =p; while j< =n do begin if a[j]=0 then a[j]: =1 else a[j]: =0; j: =j+p end end; s: =0; for i: =1 to n do if a[i]=1 then s: =s+1; write ('ламп горит -', s); readlnend.
Ответ дал: Гость
Перестановки с повторениями сообщение содержит 3 или 4 цвета. вариантов для 3 цвета 3*3*3 = 27 для 4 цвета подряд 3*3*3*3 = 81 27+81 = 108
Популярные вопросы