Ну так, как эта работа не контрольная, то получится так:
1. Для того, чтобы s было максимальным, надо чтобы рядом стоящие элементы отличались на минимальное значение. Так как по условию задачи массив содержит целочисленное значение, то минимальная разница = 1
2. Далее при каждом вхождении в цикл переменная s будет увеличиваться на 2:
i = 0 s = 17
i = 1 s = 19
i = 2 s = 21
i = 3 s = 23
i = 4 s = 25
i = 5 s = 27
i = 6 s = 29
i = 7 s = 31
i = 8 s = 33
i = 9 s = 35
Ответ: s = 35
Var N,K:integer;
begin
write('Введите значение количество школьников N=');
readln(N);
write('Введите значение количество персиков K=');
readln(K);
writeln('Каждому школьнику достанется по ',K div N,' шт');
writeln('в корзине останется ',K mod N,' шт');
<span>end.</span>
Var g,t:integer;
s:real;
begin
g:=10;
writeln('Время падения в секундах равно ');
read(t);
while t<>0 do
begin
s:=(g*sqr(t))/2;
writeln('Высота колодца равна ',s,' метров.');
writeln('Время падения в секундах равно ');
read(t);
end;
end.<span>
</span>
На фото есть все группы клавиш
Uses crt;var a,m:array[1..99] of integer; i,j,n,b:integer;beginclrscr;randomize;writeln('vvedite N');readln(n);for i:=1 to n do begina[i]:=random(50);write(a[i]:3);end;
for i:=1 to n-1 dofor j:=i+1 to n doif (a[j]>a[i]) then beginb:=a[i];a[i]:=a[j];a[j]:=b;end;writeln;writeln('====================');for i:=1 to n dowrite(a[i]:3);readln;end.