Чтобы нарисовать массив по информатике вам нужно сделать следующее - берете массив по информатике, и очень-очень длинную полоску бумаги, и в ней распологаете массив, в случае одномерного массива все понятно - индекс определяет смещение от начала массива и, таким образом определяет сам элемент, в случае двумерного массива первый индекс определяет виртуальную строку - смещение, помноженное на максимальную длину строки, а индекс столбца определяет смещение внтури строки - т.е. какой бы размерности не был массив он в любом случае в памяти ЭВМ представляет в виде примитивной одномерной бумажки-строки.
var i,j: integer; x: real; a : array [1..10] of real; begin for i := 1 to 10 do read (a[i]); for i := 2 to 10 do begin for j := 10 downto i do if a[j-1]>a[j] then begin x := a[j-1]; a[j-1] := a[j]; a[j] := x; end; end; for i := 1 to 10 do write (a[i], ' '); end;
Чтобы нарисовать массив по информатике вам нужно сделать следующее - берете массив по информатике, и очень-очень длинную полоску бумаги, и в ней распологаете массив, в случае одномерного массива все понятно - индекс определяет смещение от начала массива и, таким образом определяет сам элемент, в случае двумерного массива первый индекс определяет виртуальную строку - смещение, помноженное на максимальную длину строки, а индекс столбца определяет смещение внтури строки - т.е. какой бы размерности не был массив он в любом случае в памяти ЭВМ представляет в виде примитивной одномерной бумажки-строки.
var
i,j: integer;
x: real;
a : array [1..10] of real;
begin
for i := 1 to 10 do read (a[i]);
for i := 2 to 10 do
begin
for j := 10 downto i do
if a[j-1]>a[j] then
begin
x := a[j-1];
a[j-1] := a[j];
a[j] := x;
end;
end;
for i := 1 to 10 do write (a[i], ' ');
end;
var
a : array [1..10] of integer;
i, c, sum : integer;
begin
for i := 1 to 10 do read (a[i]);
c := 0; sum := 0;
for i := 1 to 10 do
if a[i] > 0 then
begin
inc (c);
inc (sum, sqr (a[i]));
end;
writeln (sum / c);
end.