Компьютер-это електронный прибор назначен для "опрацювання даних"разного типа
Program z1;
var f: array[1..14] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 14 do
begin
f[i]:=random(16,35);
writeln(f[i],' человек',' в',' ',i,' классе');
Sum:=Sum+f[I];
end;
writeln('----------------------');
writeln ('Всего человек:',sum);
writeln ('Нужно уроков:',14*2); // делим на 2 группы,т.к во всех классах >16 человек.
writeln ('Нужно часов:',(14*2)*0.75); // урок длится 3/4 часа (45 минут).
end.
Const N = 40;
var
a:array[1..N] of integer;
i,j,s:integer;
st:real;
begin
for i:=1 to N do readln(a[i])
s:=0; st:=0;
for i:=1 to N do
if (a[i]>9)and(a[i]<100)and(a[i] mod 2=0) then
begin s:=s+1; st:=st+a[i];end;
if s>0 then writeln('Среднеарифметическое = ',st/s:4:1)
else writeln('Искомых чисел нет');
end.
Пример (для n=20):
<span>416
295
-848
-881
-325
-690
139
-220
992
607
-998
400
720
-536
757
-123
-559
-941
22
-748
Среднеарифметическое = 22.0</span>
1) 75
2)226
3)695
Жду лайкосики и удачив информатике))