1
for i:=1 to 10 do s:=s+T[i]*C[i]
2
a:array[1..31] of real;
3
for i:=1 to N do
begin
readln(a[i];
s:=s+a[i];
end;
s:=s/N;
writeln(s)
4
Program massiv;
Var
a:array[-10..10] of real;
i:integer;
Begin
For
i:=-10 to 10 Do
Read(a[i]);
For
i:=-10 to 10 Do
a[i]:=a[i]/10;
For
i:=-10 to 10 Do
Writeln(a[i])
End.
Один из самых простых языков это конечно Бейсик
№4.1
38*64*15=36480
№4.2
в самом сообщении нужно посчитать кол-во всех букв, пробелов, знаков препинания , у меня получилось 41
№4.3
В данной задаче применим формулу Шеннона
Вероятность того,что вытащили красный карандаш= 1/32
х=㏒2(1:(1:32))= 5
Ответ :5
№4.4
1,44*2/3= 0,96 МБ
1КБ=1024 байта
1МБ=1024 КБ
0,96 МБ= 0,96*1024*1024=1006632,96 байт
№4.5
пуст точка-0
тире-1
я не знаю азбуку Морзе...
Var a:array [1..100] of integer;
s,i,k,n:integer;
sr:real;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
k:=0;
for i := 1 to n do
begin
s:=s+a[i];
sr:=s/n;
end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln('sr=',sr,' k=',k);
readln;
<span>end.</span>