program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.
А)1000, б)101, в)11 а)1001, б)100, в)111 а)1010, б)1101, в)10 а)1110, б)10010, в)110 а)1101, б)10100, в)11010 а)11101, б)10101,
ерсина [28]
1) 8;5;3
2) 9;4;7
3)10;13;2
4) 14;18;6
5) 13;20;26
6) 29;21;47
7) 31;58;170
8) 32;73;239
9) 65;49;85
10) 86;52;58
Объекты то какие? Давай примерчик приведу свой.
Телевизор, электричество, провод
Телевизор работает от электричества, а электричество поступает по проводу.
Вот так вот....
Смотря если много компов то файлы локальные , lochost вроде и файлы которые выложили в сеть с главного клмпа