Школьные задачи на обработку массивов!

[Mixell]

1-я задача
var
s, i,min,max:integer;
a:array[1..7] of integer;
begin
max:=a[1];
min:=a[1];
for i:=1 to 7 do
if a[i]<min
then
min:=a[i]
else
if a[i]>max
then
a[i]:=max;
s:=min+max;
writeln(s);
readln;
end.

[Mixell]

Сообщение от Leshii

Ну какбэ среди положительных.

А блин загнался,значит надо проверять не меньше ли 0, а больше)))Спасиб)

[Mixell]

4-я
var
s,n,max,i:integer;
a:array[1..10] of integer;
begin
max:=a[1];
n:=1;
s:=a[i];
for i:=2 to 10 do
if a[i]>max
then
begin
max:=a[i];
n:=1
for i:=2 to n do
s:=s+a[i];
writeln(s);
readln;
end.

Вроде все)Удачи)Девушке привет)

[MCZajtsev]

Спасибо)очень выручил)))