Задан массив действительных чисел a1, a2...a20. Перенести в массив C те элементы A , которые меньше , чем среднее артфметическое. Вывести на экран все промежуточные и конечные результаты
Const N = 13; Var A:array[1..N] of integer; i,k:integer; Begin k:=0; Write('Введите массив A(',N,'): '); For i:= 1 to N do Begin Read(A[i]); if A[i] = 1 then k:=k+1 End; WriteLn('Количество единиц: ',k); End.
Const N = 13; Var A:array[1..N] of integer; i:integer; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(13)-6; Write(' ',A[i]); if A[i] < 0 then A[i]:=A[i]+A[1] End; WriteLn; Write('Новый массив:'); For i:= 1 to N do Write(' ',A[i]) End.
Var a,b,c,d,x,y,h,minx,miny:real; i:integer; begin writeln('a, b, c, d:'); readln(a,b,c,d); h:=0.2; x:=0; y:=a*x*x*x+b*x*x+c*x+d; writeln(x:2:1,' ',y:5:2); minx:=0; miny:=y; for i:=1 to round((2-0)/h)+1 do begin x:=x+h; y:=a*x*x*x+b*x*x+c*x+d; writeln(x:2:1,' ',y:5:2); if y<miny then begin minx:=x; miny:=y; end; end; writeln('min = y(',minx:2:1,') = ',miny:5:2); end.
import random
c = []
s = [random.randint(0,100) for i in range(20)]
sm = 0
for i in range(len(s)):
sm+=s[i]
sr = sm/len(s);
for j in range(len(s)):
if s[j] < sr:
c.append(s[j]);
print('\nНачальный массив:\n', s, '\n\nЕго среднее арифметическое:\n', sr);
print('\nНовый массив, состоящий из элементов начального, которые меньше среднего арифметического:\n', c);
Примечание:Массив заполнен случайными числами. Необходимые табуляции есть на скриншоте ↓