// PascalABC.NET 3.0, сборка 1088 begin var n:=ReadInteger('Количество элементов в списке: '); var L:=new List<integer>; var t:integer; Writeln('Вводите чеез пробел целочисленные элементы списка'); for var i:=1 to n do begin t:=ReadInteger; L.Add(t) end; var i:=1; var s:=0; while i<=n-1 do begin s+=L[i]; Inc(i,2) end; Writeln('Среднее арифметическое с четных мест равно ', s/(n div 2):0:3) end.
Тестовое решение: Количество элементов в списке: 5 Вводите чеез пробел целочисленные элементы списка -6 12 57 32 8 Среднее арифметическое с четных мест равно 22.000
Const nx=20; var i,j,n,s:integer; A,B:array[1..nx,1..nx] of real;min,t:real; z:array[1..nx] of real; begin min:=100; write('Введите размер матрицы n');Readln(n); for i:=1 to n do begin for j:=1 to n do begin A[i,j]:= sin(j)*(1-sin(i)); write(A[i,j]:9:4); if min > A[i,j] then begin min:= A[i,j];s:=i;end; end;writeln;end;writeln; i:=s; for j:=1 to n do begin z[j]:=A[i,j];write(z[j]:9:4);end; for i:=1 to n do begin for j:=2 to n do begin if z[j-1]> z[j] then begin t:=z[j-1];z[j-1]:=z[j];z[j]:=t end;end;end; writeln; i:=s; for j:=1 to n do begin A[i,j]:=z[j];write(z[j]:9:4);end; writeln;writeln; for i:=1 to n do begin for j:=1 to n do begin B[i,j]:= A[i,j];write(B[i,j]:9:4);end; writeln;end; writeln;write('min = ',min:9:4, ' I = ', s); end.
