Uses Crt; Const N = 100; Var A:array[1..N] of real; i,k:integer; S:real; Begin ClrScr; k:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=Sin(i)*Cos(i); Write(' ',A[i]:0:3); if A[i] <> 0 then Begin k:=k+1; S:=S+A[i] End; End; WriteLn; WriteLn('Sr = ',S/k); ReadLn End.
Var a: array [1..15] of integer; i, sum, k: integer; sa: real; Begin For i:=1 to 15 do a[i]:=Random(21)-10; writeln('Исходный массив:'); For i:=1 to 15 do write (a[i], ' '); writeln; sum:=0; {первоначально сумме присваивается значение 0} k:=0; {первоначально счетчику присваивается значение 0} For i:=1 to 15 do if (a[i] mod 2=0) and (i mod 2=1) then begin sum:=sum+a[i]; {подсчет суммы} k:=k+1; {подсчет количества элементов} end; sa:=sum/k; {вычисление среднего арифметического} writeln('Среднее арифметическое четных элементов массива, стоящих на нечетных местах = ', sa:4:2); End.
Тип информатика формулу или программу?