30.10.2012, 23:44
|
#4 (permalink)
|
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Вот тебе задача 1 на паскале, разбирайся:
Цитата:
uses crt;
const n=20;
var a:array[1..n] of integer;
i,imax,imin:byte;
max,min,sum:integer;
begin
clrscr;
randomize;
writeln('Massiv:');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
max:=a[1];min:=a[1];imax:=1;imin:=1;
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
imax:=i;
end
else if a[i]<min then
begin
min:=a[i];
imin:=i;
end;
writeln('Imax=',imax,' Imin=',imin);
if imax<imin then
begin
sum:=0;
for i:=imax+1 to imin-1 do
sum:=sum+a[i];
end
else if imax>imin then
begin
sum:=0;
for i:=imin+1 to imax-1 do
sum:=sum+a[i];
end;
writeln('Summa=',sum);
readln
end.
|
|
|
|