1)
var
mas: array [1..5] of integer;
i:integer;
begin
for i:=1 to 5 do
read(mas[i]);
for i:=1 to 5 do begin
mas[i]:=mas[i]-20;
write(mas[i],' ');
end;
end.
2)
var
mas: array [1..8] of real;
i:integer;
begin
for i:=1 to 8 do
read(mas[i]);
for i:=1 to 8 do begin
if i mod 2 = 0 then
write(mas[i]-1,' ')
else
write(mas[i]+1,' ')
end;
end.
Ответ:
5div12 = 0
5 mod 12 = 5
1327div div 10 = 132
Объяснение:
div - целочисленное деление
mod - остаток от целочисленного деления
<span>program el<span>;
</span></span><span>Uses crt<span>;
</span></span><span>var n,R,R1,R2:real<span>;
</span></span><span>begin
</span><span>writeln('Вычисление сопротивления электрической цепи.')<span>;
</span></span><span>writeln('Введите исходные данные:')<span>;
</span></span><span>writeln('Величина первого сопротивления (Ом) -> '); readln(R1)<span>;
</span></span><span>writeln('Величина второго сопротивления (Ом) -> '); readln(R2)<span>;
</span></span><span>writeln('Тип соединения (1 - последовательное, 2 - параллельное) -> '); readln(n)<span>;
</span></span><span>If n=1 <span>then
</span></span><span>R:=R1+R2
</span><span>else R:=R1*R2/(R1+R2)<span>;
</span></span><span>writeln('')<span>;
</span></span><span>writeln('Соротивление цепи: ',R)<span>;
</span></span><span>end<span>.</span></span>