14 ! начало уже есть, осталось только продолжить найти максимальную из сумм a1+an; a2+an-1; где a1, - элементы массива начало: program p; const n=14; a1=20; a2=10; var s: array of integer; begin
Program P; const n=14; var a: array [1..n] of integer; i,max:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; max:=a[1]+a[n]; 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.
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР массив: РЯД 30 ИЗ ЦЕЛ; сч, число: ЦЕЛ; найдено: КЛЮЧ;
УКАЗ ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 65)) + 20; Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0) КОН; Вывод.Цепь("^"); число := Приём.Число(); Вывод.Цепь("^"); найдено := ОТКЛ; ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП ЕСЛИ массив[сч] > число ТО Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0); ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН КОН КОН; ЕСЛИ НЕ найдено ТО Вывод.Цепь("нет") КОН
begin var m:=ReadInteger('m ='); var n:=ReadInteger('n ='); Writeln('Массив:'); var d:=MatrRandom(m,n,0,10).Println(5); var mn:=d.ElementsByRow.Min; writeln('min = ',mn); var b:=d.ElementsByRow.Where(x->x<>mn).Average; writeln('среднее значение среди элементов, не совпадающих с минимальным = ',b); end.
Пример: m = 3 n = 5 Массив: 10 1 7 4 4 3 3 6 8 8 10 1 2 3 10 min = 1 среднее значение среди элементов, не совпадающих с минимальным = 6
const n=14;
var
a: array [1..n] of integer;
i,max:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
max:=a[1]+a[n];
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.
Пример:
11 2 15 15 8 3 8 12 19 18 7 2 11 8
max = 26