Pascal прошу! даны длина и ширина прямоугольника составьте программу вычисления его периметра и площади. i. модель: дано: a, b - real найти: p, s - real формула: -? ii. алгоритм: 1) ввести: 2)вычислить: 3)вывести: iii. программа в паскале:

половина байта, так как одно поле может принимать только 1 из 2 значений, тоесть 1 клетка 1 бит. так как клеток 4, сталобыть это 4 бит. так как 1 байт = 8 бит то 4 бита это половина байта

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает