Program prog;
uses crt;
var a: array [1..10] of integer;
i,k: integer;
begin
clrscr;
randomize;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
writeln ('a[',i,'] = ', a[i]);
if a[i]>0 then inc(k);
end;
writeln;
write('K = ', k);
end.
<span> X Y
</span>1.(101,101) (5, 5)
2.(1000,1000) (8, 8)
3.(1001,100) (9, 4)
4.(1011,1110) (11, 14)
5.(1100,110) (12, 6)
6.(1100,111) (12, 7)
7.(1011,111) (11, 7)
8.(1011,10) (11, 2)
9.(1001,10) (9, 2)
10.(1001,11) (9, 3)
11.(1010,11) (10, 3)
12.(1010,100) (10, 4)
13.(111,100) (7, 4)
<span>14.(111,10) (7, 2)</span><span>
</span>График во влажении. Не знаю как их плавной линией соединить, сильно они разбросаны.
Если расход электроэнергии записан в ячейках столбца A (например в A1), то для расчета оплаты можно использовать формулу:
=ЕСЛИ(A1<=100;A1*1,5;ЕСЛИ(A1<300;A1*1,8;A1*2))
Var
i:integer;
a:array [1..8] of real;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=8+ Random;
writeln(a[i]:0:2);
end;
end.