Var a:array[1..38] of integer; i:integer; Begin writeln('Изначальный массив'); for i:= 1 to 76 do if i<39 then Begin a[i]:=random(51) - 20; write(a[i],' '); End else Begin if i=39 then Begin writeln; writeln('Получившийся массив'); End; if ((a[i-38] mod 10) = 4) or ((a[i-38] mod 7) = 0) then a[i-38]:=100; Write(a[i-38],' '); End; End.
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.
a:array[1..38] of integer;
i:integer;
Begin writeln('Изначальный массив');
for i:= 1 to 76 do
if i<39 then Begin
a[i]:=random(51) - 20;
write(a[i],' ');
End else Begin if i=39 then Begin writeln; writeln('Получившийся массив'); End;
if ((a[i-38] mod 10) = 4) or ((a[i-38] mod 7) = 0) then a[i-38]:=100;
Write(a[i-38],' ');
End;
End.