Program n1; const razmer = 2001; var a:array [1..100] of integer; b:array [0..100,0..100] of integer; i,j,min:integer; begin writeln('Исходный массив: '); for i:=1 to 100 do begin a[i]:=random(razmer)-razmer div 2; write(a[i],' '); b[i,0]:=a[i]; b[0,i]:=a[i]; end; writeln;
min:=a[1]+a[2];
writeln('Все возможные значения попарных сумм:'); for i:=1 to 100 do begin for j:=1 to i-1 do begin b[i,j]:=b[0,j]+b[i,0]; write(b[i,j],' '); if b[i,j]<min then min:=b[i,j]; end; writeln; end;
writeln('Наименьшее значение попарной суммы: ',min); end.
1 const n = 10; var a : array [1..n] of integer; i : integer; begin randomize; // Выбери нужный for
for i := 1 to n do begin a[i] := i; writeln (a[i]); end; //a[1]=1,a[2]=2...a[10]=10
//рандомом for i := 1 to n do begin a[i] := 1 + random (9); writeln (a[i]); end; end. 2 const n = 25; //кол-во элементов var a : array [1..n] of integer; i,k : integer; begin randomize; for i := 1 to n do a[i] := -20+random(40);
k := 0; for i := 1 to n do if a[i] mod 2 =1 then k := k +1; writeln (k); end.
3 const n = 10; var a : array [1..n] of integer; i,s1,s2 : integer; begin randomize; for i := 1 to n do begin a[i] := -10+random(21); writeln (a[i]); end; s1 := 0; s2 := 0; for i := 1 to n do begin if a[i] > 0 then s1 := s1 +a[i]; if a[i] < 0 then s2 := s2 +a[i]; end; writeln ('Сумма положительных=',s1); writeln ('Сумма отрицательных=',s2); end.
скорее всего либо телефон тормозит