Надеюсь дальше сам поймёшь http://mabi.vspu.ru/files/2016/05/0003-003-Tablitsy-istinnosti-logicheskikh-operatsij.jpg
//прога на Pascal`e
var
a : array[1..10] of shortint;
i: byte;
count1, count2 : integer;
begin
randomize;
write ('Сформированный массив: ');
for i:=1 to 10 do begin
a[i]:=random (99)-49;
write (a[i], '; ');
if a[i]>0 then inc(count1, a[i]) else inc(count2, 1);
end;
writeln ();
writeln ('Сумма положительных элементов: ',count1);
write ('Кол-во отрицатедьных элементов : ', count2);
end.
8)
a:=20;
b:=25;
a<b, c:=2*a-b;
c:=40-25;
c:=15;
1)
a:=3;
b:=8;
a:=8-3*2;
a:=2;
b:=24/2*4:
b:=48;
2)
Var
a,b,c,p,s:real;
Begin
Writeln('Enter A,B,C');
Readln(a,b,c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
end.
#include <iostream>
using namespace std;
int main()
{
setlocale (LC_ALL, "Russian");
int x, y;
cout << "X and Y= ";
cin >> x >> y;
if (x=y)
{ cout << "Одинаковы"; }
else
{ cout << "Неодинаковы"; }
cin.get();
cin.get();
return 0;
}