Фільтрування – це зручний іб Переглянути лише ті дані, які мають відображатися в базах даних Access. Фільтри можна використовувати для перегляду певних записів у формі, звіті, запиті або таблиці даних чи для друку лише деяких записів звіту, таблиці або запиту.
uses Crt; const n=20; type Vec=array [1..n] of integer; var A: Vec; i, Sum1, Sum2, Col1, Col2: integer; begin ClrScr; Randomize; Sum1:=0; Sum2:=0; Col1:=0; Col2:=0; WriteLn('Massiv A :'); for i:=1 to n do begin A[i]:=random(100); Write(A[i]: 4); if A[i]<50 then begin Sum1:=Sum1+A[i]; Col1:=Col1+1; end else begin Sum2:=Sum2+A[i]; Col2:=Col2+1; end; end; WriteLn; WriteLn('Sred<50 :', Sum1/Col1:6:2) ; WriteLn('Sred>=50 :', Sum2/Col2:6:2) ; ReadLn; end.
Const n=6; var a:array[1..n,1..n]of integer; b:array[1..n]of integer; i,j:integer; begin for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(100); write(a[i,j]:4); end; b[i]:=a[i,i]; writeln; end; writeln; for i:=1 to n do write(b[i]:4); end. вариант главной и побочной диагонали в одномерный массив const n=6; var a:array[1..n,1..n]of integer; b:array[1..n*2]of integer; i,j,k:integer; begin writeln; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(100); write(a[i,j]:4); end; k:=k+1; b[k]:=a[i,i]; k:=k+1; b[k]:=a[i,n+1-i]; writeln; end; writeln; for i:=1 to n*2 do write(b[i]:4); end.
Объяснение:
Фільтрування – це зручний іб Переглянути лише ті дані, які мають відображатися в базах даних Access. Фільтри можна використовувати для перегляду певних записів у формі, звіті, запиті або таблиці даних чи для друку лише деяких записів звіту, таблиці або запиту.