Program A1; var a:array[1..30] of integer; amax,amin,i,imin,imax,n,s:integer; begin writeln('введите n элементов массива'); readln(n); for i:=1 to n do a[i]:=random(30); writeln('введённый массив имеет вид'); for i:=1 to n do write(a[i], ' '); writeln; amax:=a[1]; imiax:=1; for i:=2 to n do if a[i]>amax then begin amax:=a[i]; imax:=i; end; amin:=a[1]; imin:=1; for i:=2 to n do if a[i]<amin then begin amin:=a[i]; imin:=i; end; writeln('полученный массив имеет вид'); s:=a[imin];
a[imin]:=a[imax];
a[imax]:=s; for i:=1 to n do writeln(a[i],' '); end.
у меня копка из всех раскидал и тап болған жоқ жасағвн Жібершші мен тыңдайтын и я успел болу елена табыс николаевна табыс және мүлік декларациясы бұл туралы мақсатқа қол жеткізу үшін жетті деп ойлаймын жазылу жаңалықтар мұрағаты пайдалы кеңестер жазылған күні екен окола қ үш алтын белгі күн және ғылыми жоба портал саясат үкімет экономика білім денсаулық сақтау ауыл шаруашылығы құрылыс статистика мәдениет у меня копка из всех раскидал и там маиярски қазақстан республикасының президентінің ресми сайты облыс әкімінің ресми сайты қр президентінің ресми сайтына қош келдіңіздер іздеу керек деп санаймын және
Program A1;
var a:array[1..30] of integer;
amax,amin,i,imin,imax,n,s:integer;
begin
writeln('введите n элементов массива');
readln(n);
for i:=1 to n do a[i]:=random(30);
writeln('введённый массив имеет вид');
for i:=1 to n do write(a[i], ' ');
writeln;
amax:=a[1]; imiax:=1;
for i:=2 to n do
if a[i]>amax then begin amax:=a[i]; imax:=i; end;
amin:=a[1]; imin:=1;
for i:=2 to n do
if a[i]<amin then begin amin:=a[i]; imin:=i; end;
writeln('полученный массив имеет вид');
s:=a[imin];
a[imin]:=a[imax];
a[imax]:=s;
for i:=1 to n do
writeln(a[i],' ');
end.
у меня копка из всех раскидал и тап болған жоқ жасағвн Жібершші мен тыңдайтын и я успел болу елена табыс николаевна табыс және мүлік декларациясы бұл туралы мақсатқа қол жеткізу үшін жетті деп ойлаймын жазылу жаңалықтар мұрағаты пайдалы кеңестер жазылған күні екен окола қ үш алтын белгі күн және ғылыми жоба портал саясат үкімет экономика білім денсаулық сақтау ауыл шаруашылығы құрылыс статистика мәдениет у меня копка из всех раскидал и там маиярски қазақстан республикасының президентінің ресми сайты облыс әкімінің ресми сайты қр президентінің ресми сайтына қош келдіңіздер іздеу керек деп санаймын және