Const N = 13; Var A:array[1..N] of integer; i,Max:integer; Begin {Заполнение массива} Randomize; Write('Исходный массив: '); For i:= 1 to N do Begin A[i]:=random(N); Write(A[i],' '); End; {Поиск максимума} Max:=1; For i:= 2 to N do if A[i]>A[Max] then Max:=i; {Домножение} For i:= 1 to Max-1 do if i mod 2 = 0 then A[i]:=A[i]*A[Max]; WriteLn; WriteLn('Max = A[',Max,'] = ',A[Max]); Write('Переработанный массив: '); For i:= 1 to N do Write(A[i],' '); End.
// PascalABC.NET 3.0, сборка 1128 const nmax=100; var n,i,j,nn,nz,np,t:integer; a,an,az,ap:array[1..nmax] of integer; begin // формируем массив и выводим его Write('Количество элементов в массиве: '); Read(n); for i:=1 to n do begin a[i]:=Random(11)-5; Write(a[i],' ') end; Writeln; // разбиваем массив на три подмассива nn:=0; nz:=0; np:=0; for i:=1 to n do if a[i]<0 then begin nn:=nn+1; an[nn]:=a[i] end else if a[i]=0 then begin nz:=nz+1; az[nz]:=a[i] end else begin np:=np+1; ap[np]:=a[i] end; // сортируем массив с отрицательными элементами по убыванию for i:=1 to nn-1 do for j:=1 to nn-1 do if an[j]<an[j+1] then begin t:=an[j]; an[j]:=an[j+1]; an[j+1]:=t end; // сортируем массив с положительными элементами по возрастанию for i:=1 to np-1 do for j:=1 to np-1 do if ap[j]>ap[j+1] then begin t:=ap[j]; ap[j]:=ap[j+1]; ap[j+1]:=t end; // формируем новое содержимое массива a i:=0; for j:=1 to nz do begin i:=i+1; a[i]:=az[j] end; for j:=1 to np do begin i:=i+1; a[i]:=ap[j] end; for j:=1 to nn do begin i:=i+1; a[i]:=an[j] end; // вывод результата for i:=1 to n do Write(a[i],' '); Writeln end.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var n:=ReadInteger('Количество элементов в массиве: '); var a:=ArrRandom(n,-50,50); a.Println(','); Writeln('Четные элементы: '); var i:=1; while i<n do begin Write(a[i],' '); Inc(i,2) end; Writeln; Writeln('Нечетные элементы: '); i:=0; while i<n-1 do begin Write(a[i],' '); Inc(i,2) end; Writeln end.
Тестовое решение: Количество элементов в массиве: 10 15,-18,-29,-25,46,21,-8,-17,-9,15 Четные элементы: -18 -25 21 -17 15 Нечетные элементы: 15 -29 46 -8 -9
N = 13;
Var
A:array[1..N] of integer;
i,Max:integer;
Begin
{Заполнение массива}
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(N);
Write(A[i],' ');
End;
{Поиск максимума}
Max:=1;
For i:= 2 to N do
if A[i]>A[Max] then Max:=i;
{Домножение}
For i:= 1 to Max-1 do
if i mod 2 = 0 then A[i]:=A[i]*A[Max];
WriteLn;
WriteLn('Max = A[',Max,'] = ',A[Max]);
Write('Переработанный массив: ');
For i:= 1 to N do
Write(A[i],' ');
End.
Пример:
Исходный массив: 3 10 0 5 8 11 9 1 1 12 11 12 7
Max = A[10] = 12
Переработанный массив: 3 120 0 60 8 132 9 12 1 12 11 12 7