#include "iostream"
#include "stdlib.h"
#include "locale.h"
using namespace std;
int main(){
setlocale(LC_ALL, "russian");
int A, B;
cout << "Ââåäèòå ïåðâîå ÷èñëî: "; cin >> A;
cout << "Ââåäèòå âòîðîå ÷èñëî: "; cin >> B;
if (A > B){
cout << "Âòîðîé" << endl;
}else if (A < B){
cout << "Ïåðâûé" << endl;
}else cout << "Îíè ðàâíû" << endl;
system("pause");
return 0;
}
Uses crt;
Var a:array [1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do
readln (a[i]);
clrscr;
for i:=1 to 7 do begin
write (a[i]:4);
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln (s);
end.
Вероятнее всего это то что тебе нужно. Я так понял это схема транзисторов, да?