Pascal.abc! 50 . задан массив размерностью (10х10) элементов. присвоить элементам массива значение функции при изменении аргумента от 5 с шагом 0.75. сформировать одномерный массив, в который переписать все элементы, расположенные на главной и побочной диагоналях. пересортировать полученный массив по возрастанию методом "пузырька". вывести на экран в формате 3 знака после запятой: исходный массив; полученный массив; искомые элементы (если они есть предусмотреть возможность вывода на экран и в файл.

// PascalABC.NET 3.2, сборка 1449 от 23.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var f:real->real:=
    x->cos(0.75*Power(x,0.25)-0.5*Power(x,0.5)+0.25*Power(x,0.75));
  var a:=MatrGen(10,10,(i,j)->f(5+(10*i+j)*0.75));
  Writeln('*** Исходный массив ***'); a.Println(7,3); Writeln(70*'-');
  var fo:=OpenWrite('output.txt');
  Writeln(fo,'*** Исходный массив ***');
  for var i:=0 to 9 do begin
    for var j:=0 to 9 do Write(fo,a[i,j]:7:3);
    Writeln(fo)
    end;
  Writeln(fo,70*'-');
  Write('Сформированный массив: ');
  Write(fo,'Сформированный массив: ');
  var b:=a.ElementsWithIndexes.Where(x->(x[0]=x[1]) or (x[0]=9-x[1]))
    .Select(x->x[2]).ToArray;
  b.ForEach(x->Write(x:7:3)); Writeln;
  b.ForEach(x->Write(fo,x:7:3)); Writeln(fo);
  Write('Отсортированный массив:');
  Write(fo,'Отсортированный массив:');
  // пузырьковая сортировка
  for var i:=0 to 18 do
    for var j:=0 to 18-i do
      if b[j]>b[j+1] then Swap(b[j],b[j+1]);
  b.ForEach(x->Write(x:7:3)); Writeln;
  b.ForEach(x->Write(fo,x:7:3)); Writeln(fo);
  fo.Close
end.

Результат
*** Исходный массив ***
  0.668  0.629  0.589  0.550  0.509  0.469  0.428  0.387  0.346  0.305
  0.263  0.222  0.180  0.139  0.098  0.057  0.016 -0.024 -0.064 -0.104
 -0.143 -0.182 -0.220 -0.258 -0.295 -0.331 -0.367 -0.402 -0.437 -0.470
 -0.503 -0.535 -0.566 -0.596 -0.625 -0.653 -0.680 -0.706 -0.732 -0.756
 -0.779 -0.801 -0.822 -0.841 -0.860 -0.878 -0.894 -0.909 -0.923 -0.936
 -0.948 -0.958 -0.968 -0.976 -0.983 -0.988 -0.993 -0.996 -0.999 -1.000
 -1.000 -0.999 -0.996 -0.993 -0.988 -0.983 -0.976 -0.968 -0.959 -0.949
 -0.939 -0.927 -0.914 -0.900 -0.885 -0.869 -0.853 -0.835 -0.817 -0.798
 -0.778 -0.757 -0.735 -0.713 -0.690 -0.667 -0.642 -0.617 -0.592 -0.566
 -0.539 -0.512 -0.485 -0.457 -0.429 -0.400 -0.371 -0.341 -0.312 -0.282

Сформированный массив:   0.668  0.305  0.222 -0.064 -0.220 -0.402 -0.596 -0.680 -0.860 -0.878 -0.983 -0.988 -0.993 -0.976 -0.914 -0.835 -0.757 -0.592 -0.539 -0.282
Отсортированный массив: -0.993 -0.988 -0.983 -0.976 -0.914 -0.878 -0.860 -0.835 -0.757 -0.680 -0.596 -0.592 -0.539 -0.402 -0.282 -0.220 -0.064  0.222  0.305  0.668

Вариант без пузырьковой сортировки

begin
  var f:real->real:=
    x->cos(0.75*Power(x,0.25)-0.5*Power(x,0.5)+0.25*Power(x,0.75));
  var a:=MatrGen(10,10,(i,j)->f(5+(10*i+j)*0.75));
  Writeln('*** Исходный массив ***'); a.Println(7,3); Writeln(70*'-');
  var fo:=OpenWrite('output.txt');
  Writeln(fo,'*** Исходный массив ***');
  for var i:=0 to 9 do begin
    for var j:=0 to 9 do Write(fo,a[i,j]:7:3);
    Writeln(fo)
    end;
  Writeln(fo,70*'-');
  Write('Сформированный массив: ');
  Write(fo,'Сформированный массив: ');
  var b:=a.ElementsWithIndexes.Where(x->(x[0]=x[1]) or (x[0]=9-x[1]))
    .Select(x->x[2]).ToArray;
  b.ForEach(x->Write(x:7:3)); Writeln;
  b.ForEach(x->Write(fo,x:7:3)); Writeln(fo);
  Write('Отсортированный массив:');
  Write(fo,'Отсортированный массив:');
  b.Sort; // вместо пузырьковой сортировки
  b.ForEach(x->Write(x:7:3)); Writeln;
  b.ForEach(x->Write(fo,x:7:3)); Writeln(fo);
  fo.Close
end.

Вопросы:

1) Элемент памяти, позволяющий хранить восьмиразрядное двоичное число

2) Наука о правилах мышления, изучающая мышление как средство познания

3) Конечная последовательность команд с указанием порядка их выполнения

4) Сообщение, снижающее степень неопределенности знаний о состоянии предметов или явлений и решить поставленную задачу

5) Клавишное устройство управления компьютером

6) Любой видов графического представления данных в электронной таблице

7) Устройство визуального представления данных

8) Приказ исполнителю на выполнение действий из указанного конечного набора

9) Совокупность ячеек электронной таблицы, образующихся на пересечении группы последовательно идущих строк и столбцов

10) Любой файл, обрабатываемый с приложений, работающих под управлением данной операционной системы

11) Участок оперативной памяти компьютера, в котором хранится код изображения, выводимого на дисплей

 

{2 в 1)

Задача:  вывести сумму всех нечетных эелементов и сумму элеметнов стоящих на четных позициях}
var
  a:array[1..100] of integer;
  i, summ1, summ2, n:integer;
begin
  summ1 := 0;
  summ2 := 0;
  randomize;
  write('n = '); readln(n);
  writeln('Исходный массив :');
  for i := 1 to n do
  begin
    a[i] := random(51) - 25;
    write(a[i], ' ');
    if abs(a[i]) mod 2 = 1 then
      summ1 := summ1 + a[i];
    if i mod 2 = 0 then
      summ2 := summ2 + a[i];
  end;
  writeln;
  writeln('Сумма нечетных элементов: ', summ1);
  writeln('Сумма элементов стоящих на четных позициях: ', summ2);
  readln;
end.