Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Project1;
const n=10;
var i,sum:integer;
A:array [1..n] of integer;
begin
for i:=1 to n do begin
write('введите A[',i,']'); readln (A[i]);
end;
writeln;
sum:=0;
for i:=1 to n do
if A[i]<0 then begin
writeln ('A[',i,']'); sum:=sum+A[i];
end;
writeln ('Сумма отрицательных элементов =',sum);
end.
Объяснение:
14×4+14×2+3×2+2×4+14×2+2×2=14×8+2×9=112+18=130метров проволки нужно
152 бит = 152 / 8 байт = 19 байт
1 байт = 8 бит
1 бит = 1/8 байт
Надеюсь дальше сам поймёшь http://mabi.vspu.ru/files/2016/05/0003-003-Tablitsy-istinnosti-logicheskikh-operatsij.jpg
Program Zadacha;
Var sum, raz, pr, ch, x, y, z: real;
Begin
randomize;
x:=random(50);
y:=random(50);
z:=random(50);
sum:= x + y + z;
Writeln('Сумма = ',sum:4:2);
raz:= x - y - z;
Writeln('Разность = ',raz:4:2);
pr:= x * y * z;
Writeln('Произведение = ',pr:4:2);
ch:= x/y; ch:= ch/z;
Writeln('Частное = ',ch:4:2);
End.<span> </span>