Как найти информационный вес символа?

Question

Информатика: Как найти информационный вес символа?

ТвОйМаЛьЧиК · Accepted Answer

Задача 1 const N=30; var a: array [1..N] of integer; i,j,s: integer; begin for i:=1 to N do readln(a[i]); for i:=1 to N do if (a[i] 99)and(a[i] 1000) then if (a[i] mod 2) 0 then begin s:=s+a[i]; j:=j+1; end; if j=0 then writeln( в массиве нет нечётных трехзначных чисел ) else writeln( среднее арифметическое нечётных трехзначных чисел: ,s/j); end. задача 2 const N=40; var a: array [1..N] of integer; i,x,y: integer; s: real; begin for i:=1 to N do readln(a[i]); x:=abs(a[1]); for i:=1 to N do if (a[i]...

MOGZ ответил