В таблице Оплата Электроэнергии используйте следующее правило для подсчета суммы оплаты: если израсходовано не более 100 к Вт*ч, то цена 1 к Вт*ч равна 1,5 рублей; если израсходовано более 100, но менее 300 к Вт*ч, то цена 1,8 рублей; если израсходовано не 300 к Вт*ч, то цена 1 кВт*ч равна 2 рублям. Используйте логические функции. Очень нужно на сегодня! Через Excel! Файлом
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=0;
else
mas[i]:=mas[i]*3;
end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (i mod 2)=0 then
mas[i]:=(mas[i]*mas[i]);
end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i]<0) then
mas[i]:=mas[i]*(-1);
end;
end.