Const n = 10; var a: array[1..n, 1..n] of integer; i, j: integer;
begin Randomize; Writeln('Исходная матрица'); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; for i:=1 to n do a[i,i]:=0; Writeln('Результирующая матрица'); for i := 1 to n do begin for j := 1 to n do Write(a[i, j]:4); Writeln end end.
В паскале const n = 3; k = 3; var i,j:integer; a:array[1..n,1..k] of integer; begin for i:=1 to n do for j:=1 to k do begin Writeln('Введите a[',i,',',j,']:'); readln(a[i,j]); end; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to k do write('a[':4,i,',',j,']=',a[i,j]); writeln; end; for i:=1 to n do for j:=1 to k do if i=j then a[i,j]:=0; writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to k do write('a[':4,i,',',j,']=',a[i,j]); writeln; end; <span>end.</span>
Uses crt; const N=30; var a:array [1..N] of integer; x,min,max,t:integer; begin for x:=1 to N do begin write('a[',x,']:'); readln(a[x]); end; min:=1; max:=1; for x:=1 to N do begin if a[x]<a[min] then min:=x; if a[x]>a[max] then max:=x; end; t:=a[max]; a[max]:=a[min]; a[min]:=t; for x:=1 to N do write(a[x]:4); end.
Растровое изображение имеет размер файла болльше чем векторное изображение.Так как в растровом храняться данные о каждом пикселе и его цете.А в векторном изображении используются графические приметивы такие как элипс, треугольник, линия.И требуют гораздого меньшего размера.