Var a: array [1..10, 1..10] of integer; i, j: byte; begin randomize; writeln(' *** Исходный массив *** '); for i := 1 to 10 do begin for j := 1 to 10 do begin a[i, j] := random(41)-20; write(a[i, j]:5); end; writeln; end; writeln('Положительные эл. главной диагонали: '); for i := 1 to 10 do for j := 1 to 10 do if ((i = j) and (a[i, j] > 0)) then write(a[i, j], ' '); end.
Var a:array [1..10, 1..10] of integer; i, j, max, min, imin, imax, jmin, jmax:integer; begin imax:=0; imin:=0; jmax:=0; jmin:=0; max:=-maxint; min:=maxint; for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=random(89)+10; write(a[i,j],' '); if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end; end; writeln; end; writeln; writeln('Максимальный элемент:',max); writeln('Его индекс ',imax,' ',jmax); writeln('Минимальный элемент:',min); writeln('Его индекс ',imin,' ',jmin); end.
uses Crt; const N=30; type Mas=array [1..N] of integer; var i, j , SumPol, SumOtr: integer; A: Mas; begin ClrScr; SumPol:=0; SumOtr:=0; WriteLn(' Sposob 1:'); WriteLn; for i:=1 to N do begin A[i]:=-10+random(21); Write (A[i]:4); end; WriteLn; for i:=1 to N do begin if (A[i]>0) then SumPol:=SumPol+A[i]; if (A[i]<0) then SumOtr:=SumOtr+A[i]; end; WriteLn(' SumPol =', SumPol); WriteLn(' SumOtr =', SumOtr); WriteLn; WriteLn (' Sposob 2:') ; SumPol:=0; SumOtr:=0; i:=1; repeat if (A[i]>0) then SumPol:=SumPol+A[i]; if (A[i]<0) then SumOtr:=SumOtr+A[i]; i:=i+1; until i>30; WriteLn(' SumPol =', SumPol); WriteLn(' SumOtr =', SumOtr); ReadLn; end.
a: array [1..10, 1..10] of integer;
i, j: byte;
begin
randomize;
writeln(' *** Исходный массив *** ');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(41)-20;
write(a[i, j]:5);
end;
writeln;
end;
writeln('Положительные эл. главной диагонали: ');
for i := 1 to 10 do
for j := 1 to 10 do
if ((i = j) and (a[i, j] > 0)) then
write(a[i, j], ' ');
end.