1. Кестедегі В бағанының ұяшықтар пішімін бөлшектік, проценттік, сандық пішімдеу жолын жазыңыз.1. Ұяшықтарды белгілеу2. 3. 4. «Ok» батырмасын басу.[2]3. Бос жерге сөз қойып, анықтаманы толықтырыңыз:1. — тігінен орналасқан бағандар және көлденеңінен орналасқан жолдар қиылысында пайда болған ұяшық жиыны.2. — қағаз пішімінің электрондық нұсқасы іспеттес.3. — 256 бағанынан және 65536 қатарларынан тұрады.4. Excel бағдарламасының пайдалы мүмкіндіктерінің бірі сандар мен күндерді түрлі әдістермен болып табылады. 5. Парақшадағы әр ұяшықтың ішінде орналасқан кішкентай диаграмманы деп атайды.[5]4. Кестенің диаграммасын тұрғызу әркеттерін сипаттаңыз.1. Ұяшықтарды белгілеу2. 3. [2]

var

  a : array [1..9] integer;

  i : integer;

begin

  for i := 1 to 9 do

    if i mod 3 = 1 then a[i] := i

    else if i mod 3 = 2 then a[i] := sqr (i - 1)

    else a[i] := a[i - 1] div i;

  for i := 1 to 9 do

    write (a[i], ' ');

end.

 

var

  b, a : array [1..15] of integer;

  i, sa, sb : integer;

begin

  randomize;

  sa := 0; sb := 0;

  for i := 1 to 15 do

  begin

    a[i] := trunc (random (100)) + 1;

    write (a[i], ' ');

    sa := sa + a[i];

  end;

  writeln;

  for i := 1 to 15 do

  begin

    b[i] := sqr (a[i]) - a[i]);

    write (b[i], ' ');

    sb := sb + b[i];

  end;

  writeln;

  writeln (abs (sb - sa));

end.

  

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  var n:=ReadInteger('Количество элементов массива ');
  var m:=ArrRandom(n,-50,50); m.Println(', ');
  var a:=0; var b:=0; var c:=0;
  for var i:=0 to n-1 do begin
    if m[i]>0 then a:=a+m[i];
    if m[i]<m[b] then b:=i;
    if m[i] mod 5 = 0 then Inc(c)
  end;
  var w:=(b+1)+a/(c+1);
  WritelnFormat('A={0}, B={1}, C={2}, W={3}',a,b+1,c,w);
  Writeln('Принято, что элементы массива нумеруются от единицы')
end.

Тестовое решение:
Количество элементов массива  13
-43, -15, 18, -8, -13, -47, -36, 6, -16, 45, 33, 33, -24
A=135, B=6, C=2, W=51
Принято, что элементы массива нумеруются от единицы