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
Спасибо
Ответ дал: Гость
p - произведениеs - суммаi - цикловая переменная1. цикл с предусловием whilevarp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; while i < 200 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; i : = i + 1; [или ing(i)]end; writeln(p); writeln(c)end.2. цикл с постусловием repeat varp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; repeatif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; i : = i + 1; [или ing(i)]until i > = 200; writeln(p); writeln(c)end. 3. цикл for varp, s, i : longint; [или integer]beginp : = 1; s : = 0; for i : = 101 to 199 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; end; writeln(p); writeln(c)end.
Ответ дал: Гость
program; var i: byte; str: string; begin for i: =60 to 70 do begin str: =str+chr(i) ; end; writeln(str); end.
Популярные вопросы