Знать бы, какой ввод данных
пусть он будет с клавиатуры, массив А из оценок N учеников
for i:=1 to N do begin
sum:=sum+A[i]; {это для среднего балла}
if (A[i]=4) or (A[i]=5) then
k1:=k1+1; {счетчик отличников-хорошистов}
if A[i]=2 then
k2:=k2+1; {счетчик двоечников}
end;
writeln('Количество учеников, написавших на 4 и 5: ', k1);
if k2>0 then
writeln('Двоечники есть')
else writeln('Двоечников нет');
writeln('Средний балл: ', sum/N:3:2);
end.
Const
N = 8;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Write('Введите массив A(',N,'): ');
For i:= 1 to N do
Begin
Read(A[i]);
S:=S+A[i];
End;
WriteLn('Sr = ',S/N);
End.
Пример работы программы:
Введите массив A(8): 1 2 3 4 5 6 7 8
Sr = 4.5
Импортировать это значит добавления вставка данных из внешнего источника в в текущий файл документ экспортр вывод данных текущего файла документа во внешний источник
720= 180*i (I(объем)= K(кол-во символов)*i(вес одного символа))
i= 720/180
i= 4
N(мощность алфавита)=2^i
N=2^4
N=16
<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
function CM(a:array of integer):real;
// среднее геометрическое элементов с четным значением, большим 10
begin
Result:=1;
var k:=0;
foreach var x in a do
if x.IsEven and (x>10) then begin Result*=x; k+=1 end;
if k>0 then Result:=Power(Result,1/k) else Result:=1
end;
begin
var C:=ArrRandom(10,1,30); C.Println;
Writeln(CM(C));
var M:=ArrRandom(10,1,30); M.Println;
Writeln(CM(M));
end.
Пример
13 26 18 28 8 30 15 29 21 5
25.039824738313
20 1 1 28 28 29 3 20 3 15
23.6643191323985