Program n1; const n=10; var a: array[1..n] of integer; n3,n2,min,max,i,imin,imax,t: integer; begin randomize; writeln('введите диапазон (a;b) :'); write('a='); readln(n3); write('b='); readln(n2); write('сгенерированный массив: '); for i:=1 to n do begin a[i]:=random(n2-n3+1)+n3; write(a[i],' '); end; writeln; min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; for i:=1 to n do if a[i]=min then begin imin:=i; break; end; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; for i:=1 to n do if a[i]=max then begin imax:=i; break; end; t:=a[imax]; a[imax]:=a[imin]; a[imin]:=t; write('полученный массив: '); for i:=1 to n do write(a[i],' '); end.
const m=6; // строк n=9; // столбцов var a:array[1..m,1..n] of integer; i,j,k1,k2,s,k:integer; begin Writeln('Введите границы диапазона: '); Read(k1,k2); Randomize; s:=0; k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(199)-99; // [-99;99] Write(a[i,j]:4); if (a[i,j]>=k1) and (a[i,j]<=k2) then begin Inc(k); s:=s+a[i,j] end end; Writeln end; Writeln('Отобрано элементов: ',k,', их сумма равна ',s) end.
const n=10;
var a: array[1..n] of integer;
n3,n2,min,max,i,imin,imax,t: integer;
begin
randomize;
writeln('введите диапазон (a;b) :');
write('a=');
readln(n3);
write('b=');
readln(n2);
write('сгенерированный массив: ');
for i:=1 to n do
begin
a[i]:=random(n2-n3+1)+n3;
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do if a[i]<min then min:=a[i];
for i:=1 to n do if a[i]=min then begin
imin:=i;
break;
end;
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]=max then begin
imax:=i;
break;
end;
t:=a[imax];
a[imax]:=a[imin];
a[imin]:=t;
write('полученный массив: ');
for i:=1 to n do write(a[i],' ');
end.