var a: array[,] of real; b: array of real; i,j,ind,n,m: integer; p,s: real; begin write('размерность массива: n m '); readln(n,m); writeln('массив:'); setlength(a,n+1,m+1); setlength(b,n+1); randomize; for i:=1 to n do begin p:=1; s:=0; for j:=1 to m do begin a[i,j]:=random(-50,50)/100; write(a[i,j]:6:2); if a[i,j]<0 then begin p:=p*a[i,j]; s:=1; end; end; if s>0 then b[i]:=p else b[i]:=0; writeln; end; s:=b[1]; ind:=1; writeln('новый массив:'); for i:=1 to n do begin write(b[i]:8:4); if b[i]<s then begin ind:=i; s:=b[i]; end; end; writeln; writeln('индекс минимального элемента в новом массиве: ',ind); end.
размерность массива: n m 4 3 массив: -0.04 0.21 0.14 0.00 -0.38 -0.05 -0.29 0.12 0.12 0.15 -0.16 0.37 новый массив: -0.0400 0.0190 -0.2900 -0.1600 индекс минимального элемента в новом массиве: 3
int main()
{
int n;
printf("n = ");
scanf("%d",&n);
int a[n];
int b1=1, b2=1;
for (int i = 0; i<n; i++) {
printf("a[%d] = ", i);
scanf("%d", &a[i]);
}
for (int i=0; i<n-1; i++) {
b1 = b1 && (a[i+1]>a[i]);
b2 = b2 && (a[i+1]<a[i]);
}
if (!(b1 || b2))
for(int i=3;i<n;i+=4) {
for(int j=i;j<n-1;j++) a[j]=a[j+1];
n--; i--;
}
for (int i=0; i<n; i++)
printf ("%3d ", a[i]);
printf("\n"); return 0;
}
Пример:
n = 15
a[0] = 12
a[1] = 16
a[2] = 19
a[3] = 20
a[4] = 24
a[5] = 28
a[6] = 31
a[7] = 33
a[8] = 35
a[9] = 40
a[10] = 46
a[11] = 50
a[12] = 55
a[13] = 57
a[14] = 60
12 16 19 20 24 28 31 33 35 40 46 50 55 57 60