Идёт ток к искре каторая нагривает чай
Здесь должна быть также таблица, у нас в похожем была... ок
//Pascal ABC.NET 3.1 сборка 1219
Const
n=3; m=4;
Var
ma:array[1..n,1..m] of integer;
arsub:array[1..m] of boolean;
i,j,s:integer;
begin
randomize;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to m do
begin
ma[i,j]:=random(-2,10);
write(ma[i,j]:4);
if ma[i,j]<0 then arsub[j]:=true;
end;
writeln;
end;
for j:=1 to m do
if arsub[j]=true then
for i:=1 to n do
s:=s+ma[i,j];
writeln('Res=',s);
end.
Пример работы программы:
Matrix:
2 -2 9 9
0 9 10 1
4 9 -1 3
<span>Res=34</span>
Ответ:
for( var i=0;i<array.length; i++)
{
if (array[i] > 10) array[i]=Math.Sqrt(array[i]);
if (i % 2=0) array[i]=Math.Abs(array[i]);
}
12-2
13- E:\Класс7\Физика\Задача5.doc
14- E:\TOM3\Doc3.doc