Var
A:array[1..10] of integer;
n:integer;
Begin
Write('n = ');Readln(n);
For n:= 1 to n do
Read(A[n]);
Write('Массив: ');
For n:= 1 to n do
Write(A[n],' ');
WriteLn;
WriteLn('Сумма первого и последнего элемента: ',A[1]+A[n]);
End.
1) - 1 (=12)
2) - 3 (=11)
3) - 5 (=7)
4) - 2 (=6 )
5) - 4 (=5 в дес)
<span>System.Math.Sin(от чего)</span>
Раз надо найти индексы, значит это массив
//Pascal
const n = 12;
var a:array[1..n] of real;
min,max:real;
imin,imax,i:integer;
begin
max:=-999999;
min:=999999;
for i:=1 to n do begin
readln(a[i]);
if a[i]<min then begin
min:=a[i]; imin:=i;
if a[i]>max then begin
max:=a[i]; imax:=i;
end;
writeln ('Максимальный ',max,'индекс',imax);
writeln ('Минимальный',min,'индекс',imin);
writeln ('Сумма', max+min);
end.
Const n=20;
var
s,i: integer;
var a: array[1..n] of integer;
begin
writeln ('Исходный массив');
for i:=1 to n do begin
a[i]:=random(100);
write (a[i]:3);
if a[i] mod 2 =0
then s:=s+a[i];
end;
writeln;
writeln ('Сумма четных элементов = ',s);
end.
------------------Результат:------------------
Исходный массив
81 44 47 62 51 94 32 42 41 83 75 14 18 35 7 97 83 51 71 57
Сумма четных элементов = 306