akarabut343
?>

Какие инструменты относятся к инструментам Редактирования?ВращениеЗаливкаПовернутьЛинияПанорама​

Информатика

Ответы

valerii-borisovich550
var a: array [1..100,1..100] of longint ;i, j ,d, n,m,k: longint;beginread(n,m);
for i:=1 to n do for j:= 1 to m doread(a[i,j]);
j:=0;
        for i:=1 to n do        begin        j:=j+1;        d:=0;                 while d<2 do                 if a[i,j]<0 then begin k:=k+1; d:= 3; end;        end;

if k>(m/2) then        begin        for i:= 1 to n do                 for j:= 1 to m do                 if a[i,j]<0 then a[i,j]:=a[i,j]*10 ;
        end
else
begin        for i:=1 to n do         for j:= 1 to m do         if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end;
for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Какие инструменты относятся к инструментам Редактирования?ВращениеЗаливкаПовернутьЛинияПанорама​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kiravalter1998697
andruhovich
asparinapti39
nikdenly
ilkindadashov935232
podenkovaev314
zelreiki
Telenkovav
zanthia94
ayanrsadykov
nmakarchuk
danaya3005
dariagromova54
jim2k
Сергеевич1396
▲