Ответы: 2рк массивы
Описание
Характеристики ответов (шпаргалок)
Список файлов
- Масссивы с условием
- !П Ввод.txt 501 b
- !Р Мин элемент.txt 627 b
- P! Сумма и сортировка по возрастанию.txt 692 b
- В одну ячейку полож, в другую отрицательные.txt 768 b
- Ввод массива.txt 315 b
- Дан одномерный массив x1,x2,…,xn.Найти максимальный элемент и его порядковый номер.txt 397 b
- Из 3х массивов макс элемент.txt 872 b
- Кол-во отриц эл среди четн номеров.txt 540 b
- Количество нулей, сумма четных и сумма эл с неч индекс.txt 711 b
- Массив (вставка элемента).txt 715 b
- Массив (сумма положительных, ср. арифмет, геометр.).txt 1,04 Kb
- Массив (удаление элемента).txt 688 b
- Найти max среди всех и мин среди отрицательных кратных 5 и их индексы.txt 745 b
- Находение мин и макс, сортировка по возрастанию.txt 2,4 Kb
- Поиск макс эл в массиве.txt 398 b
- Пом мест 1 и посл эл массива и все о-ые замен на их индексы.txt 510 b
- Сортировка 2.txt 2,4 Kb
- Средн арифм кратн 3.txt 591 b
- Удал из мас отриц оканч на 3.txt 481 b
- Удалить элементы с нечетными номерами.txt 439 b
- Удалить элементы с четными номерами.txt 447 b
- Числа, кратные 5.txt 620 b
- Числа, кратные заданному.txt 701 b
- найти макс, мин и поменять местами.txt 932 b
Type
Tmas=array[1..20] of real;
procedure vvod(var n:byte;var A:Tmas);
var
i:byte;
begin
write('Vvedite kolichestvo elementov massiva ');
readln(n);
for i:=1 to n do readln (a[i]);
end;
procedure vivod (n:byte;A:Tmas);
var
i:byte;
begin
for i:=1 to n do
write (a[i]:4:2,' ');
writeln;
end;
var
B:Tmas;
m:byte;
begin
vvod (m,B);
writeln('Ish massiv ');
vivod (m,B);
readln;
end.
type mas=array [1..20] of real;
var A:mas;
k,i,n:integer;
b,min:real;
begin
randomize;
k:=0;
writeln('BBeguTe pazMep maccuBa (<=20):');
readln(n);
writeln('BBeguTe chislo:');
readln(b);
writeln('UcxogHbIi MaccuB:');
for i:=1 to n do
a[i]:=random(10)+1;
for i:=1 to n do
write(a[i]:5:2);
min:=a[1];
writeln;
for i:=1 to n do
if a[i]<min then min:=a[i];
writeln('Min element:',min:5:2);
for i:=1 to n do
if a[i]>=b/min then begin
inc(k); a[k]:=a[i]; end;
writeln;
writeln('Poluchennbli MaccuB:');
for i:=1 to k do
write (a[i]:5:2);
readln
end.
type mas=array [1..20] of integer;
var A:mas;
i,j,s,w,n:integer;
begin
randomize;
s:=0;
writeln('BBeguTe pazMep maccuBa (<=20):');
readln(n);
writeln('UcxogHbIi MaccuB:');
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do
write(a[i]:3);
writeln;
writeln('MaccuB uz cymm cifr:');
for i:=1 to n do
begin
s:=a[i] div 100+a[i] div 10 mod 10+a[i] mod 10;
a[i]:=s;
end;
for i:=1 to n do
write(a[i]:3);
writeln;
writeln('OTcoPTupoBaHHbli MaccuB:');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
w:=a[i];
a[i]:=a[j];
a[j]:=w;
end;
for i:=1 to n do
write (a[i]:3);
readln
end.
Type
Tmas=array[1..25] of integer;
var
B,D,A:Tmas;
k,p,n,i:byte;
begin
write('Vvedite kolichestvo elementov massiva ');
readln(n);
for i:=1 to n do
begin
write ('vvedite ',i:2,'elementov');
readln (a[i]);
end;
k:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
k:=k+1;
B[k]:=a[i];
end;
if a[i]<0 then
begin
P:=P+1;
D[p]:=a[i];
end;
end;
if k=0 then
writeln ('>0 net')
else
begin
writeln ('mass>0');
for i:=1 to k do
write (B[i]:2,' ');
end;
if P=0 then
writeln ('<0 net')
else
begin
writeln ('mass<0');
for i:=1 to P do
write (D[i]:2,' ');
end;
readln;
end.
end.
Type
Tmas=array[1..56] of integer;
var
a:Tmas;
i,n:byte;
begin
write('Vvedite kolichestvo elementov massiva ');
readln(n);
writeln('Vvedite massiv ');
for i:=1 to n do readln (a[i]);
writeln ('noviy massiv ');
for i:=1 to n do write (a[i]:2,' ');
writeln;
readln;
end.
const
n=8;
var i,k:Integer;
x:array[1..n] of real;
max:Real;
begin
for i:=1 to n do read(x[i]);
max:=x[1];
k:=1;
for i:=2 to n do
if x[i]>max then
begin max:=x[i];
k:=i
end;
Writeln('max=',max:6:1,'k=',k:5);
Readln;
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.
program procedur;
{$APPTYPE CONSOLE}
uses
SysUtils;
type mas=array[1..30] of integer;
var A,B,C,D:mas;
na,nb,nc,max:integer;
procedure VVOD (var T:mas; var n:integer);
var i:integer;
begin writeln ('Vvedite kolichestvo elementov massiva');
readln (n);
writeln('Vvedite massiv');
for i:=1 to n do read (T[i]);
readln;
end;
procedure VIVOD (T:mas; n:integer);
var i:integer;
begin writeln('Massiv');
for i:=1 to n do write (T[i],' ');
writeln;
end;
function Max_el(T:mas;n:integer):integer;
var i,max:integer;
begin max:=T[1];
for i:=1 to n do
if T[i]>max then max:=T[i];
Max_el:=max;
end;
begin
VVOD(A,na);
D[1]:=Max_el(A,na);
VVOD(B,nb);
D[2]:=Max_el(B,nb);
VVOD(C,nc);
D[3]:=Max_el(C,nc);
max:=Max_el(D,3);
writeln('Maksimalni element ',max);
VIVOD(A,na);
VIVOD(B,nb);
VIVOD(C,nc);
readln;
end.
type
Tmas=array[1..10] of integer;
var
a:Tmas;
j,kol,i,n:integer;
begin
writeln ('vv kol-vo elementov massiva <=10 ');
readln(n);
writeln ('vv ',n,' elementov massiva: ');
for i:=1 to n do Read(a[i]);
readln;
writeln ('vv massiv ');
for i:=1 to n do write (a[i]:3);
writeln; {viv Ish massiv}
kol:=0;
for i:=1 to n div 2 do
if a[2*i]<0 then
kol:=kol+1;
if kol=0 then
writeln (' otricatelnih elementov na chetnih mestah net')
else
writeln ('Kol-vo otricatelnih elementov kol=',kol:3);
readln;
end.
Type
Tmas=array[1..25] of integer;
var
a:Tmas;
i,n,k:byte;
S,P:integer;
begin
write('Vvedite kolichestvo elementov massiva ');
readln(n);
for i:=1 to n do
begin
write ('vvedite ',i:2,'elementov');
readln (a[i]);
end;
writeln('Ishodniy massiv ');
for i:=1 to n do;
write (a[i]:2,' ');
writeln;
k:=0;
P:=1;
S:=0;
for i:=1 to n do
if a[i]=0 then
k:=k+1;
for i:=1 to n do
if i mod 2<>0 then
P:=P*a[i];
for i:=1 to n do
if (a[i]mod 2=0)
and (a[i]>0) then
s:=s+a[i];
if k=0 then writeln ('O net ')
else
writeln ('kolichestvo 0 = ', k );
writeln ('P= ', P );
writeln ('S= ', S );
readln;
end.
program vstavka_elementa;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..100] of integer;
i,n,b,k:integer;
begin
writeln('Vvedite kolichestvo elementov massiva');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do read (a[i]);
readln;
writeln('Vvedite buduushii nomer vstavlennogo chisla');
readln(k);
writeln('Vvedite chislo dlia vstavki');
readln(b);
if (k>=0) and (k<n) then begin
for i:=n downto k do a[i+1]:=a[i];
a[k]:=b;
n:=n+1;
end;
writeln('Izmenennii massiv');
for i:=1 to n do write (a[i],' ');
writeln;
readln;
end.
program massiv;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..100] of integer;
i,n,sum,k,proizv:integer;
arif,geom:double;
begin
repeat writeln('Vvedite kolichestvo elementov massiva');
readln(n);
until (n>0) and (n<=100);
writeln('Vvedite massiv');
for i:=1 to n do read (a[i]);
readln;
k:=0;
sum:=0;
proizv:=1;
for i:=1 to n do
if a[i]>0 then begin
k:=k+1;
sum:=sum+a[i];
proizv:=proizv*a[i];
end;
if k=0 then writeln ('Polizitelnix elementov net')
else begin
writeln('Summa polizitelnix elementov ravna ',sum,' , ix kolichestvo ravno ',k);
arif:=sum/k;
writeln('Srednee arifmeticheskoe ',arif:0:2);
writeln('proizvedenie polozhitelnix elementov ravno ',proizv);
geom:=exp((1/k)*ln(proizv));
writeln('Srednee geometricheskoe ravno ',geom:0:3);
end;
readln;
end.
program ydalenie_elementa;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..100] of integer;
i,n,k:integer;
begin
writeln('Vvedite kolichestvo elementov massiva');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do read (a[i]);
readln;
writeln('Vvedite nomer elementa,kotorii xotite udalit');
readln(k);
if (k<=0) and (k>n) then writeln ('elementa pod takim nomerom net')
else begin
for i:=k to n-1 do a[i]:=a[i+1];
n:=n-1;
end;
writeln('Izmenennii massiv');
for i:=1 to n do write (a[i],' ');
writeln;
readln;
end.
Type
Tmas=array[1..25] of integer;
var
a:Tmas;
imax,imin,n,i:byte;
min,max:integer;
begin
write('Vvedite kolichestvo elementov massiva ');
readln(n);
for i:=1 to n do
begin
write ('vvedite ',i:2,'elementov');
readln (a[i]);
end;
{ randomize;
write('Vvedite kolichestvo elementov massiva ');
readln(n);}
{for i:=1 to n do
a[i]:random(30)-15;}
max:=a[1];
imax:=1;
for i:=2 to n do;
if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
min:=10000;
for i:=1 to n do
if (a[i]<0) and
(a[i] mod 5=0) and
(a[i]<min) then
begin
min:=a[i];
imin:=i;
end;
writeln ('min ', imin);
writeln ('max ', imax);
readln;
end.
var
M: array [1..200] of Integer;
i, imax, imin, j, k, n, nmax, nmin:integer;
begin
write('Enter the number of input numbers ...');
readln(n);
for i:=1 to n do begin
write('Enter number ...');
readln(M[i]);
end;
imax:=2;
nmax:=M[2];
imin:=1;
nmin:=M[1];
for i:=3 to n do {öèêë ïî ââåäåííîìó ìàññèâó}
if (i and 1)=1 then begin {íå÷åòíûé íîìåð ýëåìåíòà}
if M[i]<nmin then begin {íàéäåí íîâûé ìèíèìóì}
imin:=i; {íîìåð òåêóùåãî ìèíèìàëüíîãî íå÷åòíîãî ýëåìåíòà}
nmin:=M[i];
end;
end
else
if M[i]>nmax then begin {íàéäåí íîâûé ìàêñèìóì}
imax:=i; {íîìåð òåêóùåãî ìàêñèìàëüíîãî ÷åòíîãî ýëåìåíòà}
nmax:=M[i];
end;
writeln;
writeln('min=',nmin,' imin=',imin);
writeln('max=',nmax,' imax=',imax);
if imin>imax then begin
i:=imin;
imin:=imax;
imax:=i;
end;
for i:=imin to imax-1 do {ñîðòèðîâêà ìàññèâà ìåæäó ýëåìåíòàìè imin-imax}
for j:=i+1 to imax do
if M[i]>M[j] then begin
k:=M[j];
M[j]:=M[i];
M[i]:=k;
end;
writeln;
writeln('Sorting numbers from ',imin,' to ',imax);
writeln;
for i:=1 to n do write(M[i],','); {âûâîä ïîëó÷åííîãî ìàññèâà}
writeln;
writeln;
writeln('Press Enter ...');
readLn;
end.
var a:array[1..5] of real;
amax:real;
i,imax:byte;
begin
writeln ('vv 5 chesel ');
for i:=1 to 5 do Read(a[i]);
readln;
amax:=a[1];
imax:=1;
for i:=2 to 5 do
if a[i]>amax then
begin
amax:=a[i];
imax:=i;
end;
writeln ('Ish dannie: ');
for i:=1 to 5 do write (a[i]:5:2);
writeln;
writeln ('max element = ',amax:5:2,',ego nomer = ',imax);
readln;
end.
Type
Tmas=array[1..25] of integer;
var
a:Tmas;
i,n:byte;
buf:integer;
begin
write('Vvedite kolichestvo elementov massiva ');
readln(n);
for i:=1 to n do
begin
write ('vvedite ',i:2,'elementov');
readln (a[i]);
end;
for i:=1 to n do
if a[i]=0 then
a[i]:=i;
writeln ('massiv posle zameni ');
for i:=1 to n do write (a[i]:2,' ');
buf:=a[1];
a[1]:=a[n];
a[n]:=buf;
writeln ('massiv posle obmena ');
readln;
end.
var
M: array [1..200] of Integer;
i, imax, imin, j, k, n, nmax, nmin:integer;
begin
write('Enter the number of input numbers ...');
readln(n);
for i:=1 to n do begin
write('Enter number ...');
readln(M[i]);
end;
imax:=2;
nmax:=M[2];
imin:=1;
nmin:=M[1];
for i:=3 to n do {oeee ii aaaaaiiiio ianneao}
if (i and 1)=1 then begin {ia?aoiue iiia? yeaiaioa}
if M[i]<nmin then begin {iaeaai iiaue ieieioi}
imin:=i; {iiia? oaeouaai ieieiaeuiiai ia?aoiiai yeaiaioa}
nmin:=M[i];
end;
end
else
if M[i]>nmax then begin {iaeaai iiaue iaeneioi}
imax:=i; {iiia? oaeouaai iaeneiaeuiiai ?aoiiai yeaiaioa}
nmax:=M[i];
end;
writeln;
writeln('min=',nmin,' imin=',imin);
writeln('max=',nmax,' imax=',imax);
if imin>imax then begin
i:=imin;
imin:=imax;
imax:=i;
end;
for i:=imin to imax-1 do {ni?oe?iaea ianneaa ia?ao yeaiaioaie imin-imax}
for j:=i+1 to imax do
if M[i]>M[j] then begin
k:=M[j];
M[j]:=M[i];
M[i]:=k;
end;
writeln;
writeln('Sorting numbers from ',imin,' to ',imax);
writeln;
for i:=1 to n do write(M[i],','); {auaia iieo?aiiiai ianneaa}
writeln;
writeln;
writeln('Press Enter ...');
readLn;
end.
var
M: array [1..200] of Integer;
i, imax, imin, j, k, n, nmax, nmin:integer;
begin
write('Enter the number of input numbers ...');
readln(n);
for i:=1 to n do begin
write('Enter number ...');
readln(M[i]);
end;
imax:=2;
nmax:=M[2];
imin:=1;
nmin:=M[1];
for i:=3 to n do {oeee ii aaaaaiiiio ianneao}
if (i and 1)=1 then begin {ia?aoiue iiia? yeaiaioa}
if M[i]<nmin then begin {iaeaai iiaue ieieioi}
imin:=i; {iiia? oaeouaai ieieiaeuiiai ia?aoiiai yeaiaioa}
nmin:=M[i];
end;
end
else
if M[i]>nmax then begin {iaeaai iiaue iaeneioi}
imax:=i; {iiia? oaeouaai iaeneiaeuiiai ?aoiiai yeaiaioa}
nmax:=M[i];
end;
writeln;
writeln('min=',nmin,' imin=',imin);
writeln('max=',nmax,' imax=',imax);
if imin>imax then begin
i:=imin;
imin:=imax;
imax:=i;
end;
for i:=imin to imax-1 do {ni?oe?iaea ianneaa ia?ao yeaiaioaie imin-imax}
for j:=i+1 to imax do
if M[i]>M[j] then begin
k:=M[j];
M[j]:=M[i];
M[i]:=k;
end;
writeln;
writeln('Sorting numbers from ',imin,' to ',imax);
writeln;
for i:=1 to n do write(M[i],','); {auaia iieo?aiiiai ianneaa}
writeln;
writeln;
writeln('Press Enter ...');
readLn;
end.
var
a:array[1..10] of integer;
s,kol,i,n:integer;
begin
writeln ('vv kol-vo elementov massiva <=40 ');
readln(n);
writeln ('vv ',n,' elementov massiva: ');
for i:=1 to n do Read(a[i]);
readln;
writeln ('Ish massiv ');
for i:=1 to n do
if (i mod 10)=0 then
writeln(a[i]:5)
else write(a[i]:5);
writeln;
kol:=0;
s:=0;
for i:=1 to n do
if (a[i] mod 3)=0 then
begin
kol:=kol+1;
s:=s+a[i];
end;
if kol=0 then
writeln ('Elementov udovletvotaushih usloviu net')
else
writeln ('sredn arifm ',kol:3,'elementov, kratn 3=',(s/kol):7:2);
readln;
end.
Type
Tmas=array[1..25] of integer;
var
A:Tmas;
k,n,i:byte;
begin
write('Vvedite kolichestvo elementov massiva ');
readln(n);
for i:=1 to n do
begin
write ('vvedite ',i:2,'elementov');
readln (a[i]);
end;
k:=0;
for i:=1 to n do
begin
if (a[i]>0) and
(a[i]<>0) and
(a[i] mod 10<>3) then
begin
k:=k+1;
a[k]:=a[i];
end;
writeln ('nov massiv= ', a[k]);
readln;
end;
end.
program ydalinie_nechetnix_elementov;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..100] of integer;
n,i:integer;
begin
writeln('Vvedite kolichestvo elementov massiva');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do read (a[i]);
readln;
for i:=1 to (n div 2) do
a[i]:=a[2*i];
n:=n div 2;
writeln('Izmenennii massiv');
for i:=1 to n do write (a[i],' ');
readln;
end.
program ydalinie_chetnix_elementov;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..100] of integer;
n,i:integer;
begin
writeln('Vvedite kolichestvo elementov massiva');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do read (a[i]);
readln;
for i:=1 to ((n+1) div 2) do
a[i]:=a[2*i-1];
n:=(n+1) div 2;
writeln('Izmenennii massiv');
for i:=1 to n do write (a[i],' ');
readln;
end.
program kratnie;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b:array [1..150] of integer;
i,j,n:integer;
begin
writeln('Vvedite kolichestvo elementov massiva');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do read (a[i]);
readln;
j:=0;
for i:=1 to n do
if a[i] mod 5=0 then begin
j:=j+1;
b[j]:=a[i];
end;
if j=0 then writeln ('Net elementov,kratnix 5')
else begin writeln ('Poluchivshiesia chisla');
for i:=1 to j do write (b[i]);
end;
writeln;
readln;
end.
program kratnie;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b:array [1..150] of integer;
i,j,n,c:integer;
begin
writeln('Vvedite kolichestvo elementov massiva');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do read (a[i]);
readln;
writeln('Vvedite chislo,kratnoe kotoromy nado iskat');
readln(c);
j:=0;
for i:=1 to n do
if a[i] mod c=0 then begin
j:=j+1;
b[j]:=a[i];
end;
if j=0 then writeln ('Net elementov,kratnix ',c)
else begin writeln ('Poluchivshiesia chisla');
for i:=1 to j do write (b[i],' ');
end;
writeln;
readln;
end.
program massiv;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..150] of integer;
i,n,max,nmax,min,nmin,buf: integer;
begin
writeln('Vvediete kolichestvo elementov');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do read (A[i]);
readln;
max:=A[1];
nmax:=1;
for i:=1 to n do
if A[i]>max then begin
nmax:=i;
max:=A[i];
end;
writeln('maksimalnii element ',max,' stoit pod nomerom ',nmax);
min:=A[1];
nmin:=1;
for i:=1 to n do
if A[i]<min then begin
nmin:=i;
min:=A[i];
end;
writeln('minimalnii element ',min,' stoit pod nomerom ',nmin);
buf:=A[nmax];
A[nmax]:=A[nmin];
A[nmin]:=buf;
writeln('Novii massiv');
for i:=1 to n do write (a[i],' ');
writeln;
readln;
end.