Три магазина заказывают на складе книжки. если магазин заказывает больше 30 экземпляров какой-либо книги, склад уменьшает стоимость заказа на 10%. составить таблицу, которая содержит такую информацию: магазин, название книги, автор, цена за одну книгу, заказанное количество, стоимость заказа, сумма к оплате (с учетом скидки), дата заказа. в столбце «стоимость заказа» написать формулу, которая вычисляет стоимость заказанного количества книг. в столбце «сумма к оплате» написать формулу, по которой вычисляется стоимость заказа со скидкой, если магазин имеет скидку, или записывается стоимость заказа, если скидки нет. для столбцов «магазин», «автор», «название книги» создать раскрывающиеся списки для ввода данных. вычислить общее количество заказанных экземпляров книг, общую стоимость заказов и общую сумму к оплате. вычислить на какую сумму всего склад сделал скидки магазинам. вычислить среднюю стоимость одного экземпляра книги. количество экземпляров и размер скидки должны быть записаны в отдельных ячейках, адреса которых использовать в формулах. решить в екселе,

//Dev-C++ 5.11

#include <iostream>
using namespace std;

int main(void)
 {const int n=3;
 const int m=3;
 int ma[n][m];
 int c;
 cout<<"First matrix"<<endl;
 for(int i=0;i<n;i++)
  {for(int j=0;j<m;j++)
   {ma[i][j]=i+j;
   cout<<ma[i][j]<<" ";}
  cout<<endl;}
 for(int i=0;i<n/2;i++){
  for(int j=0;j<m;j++)
   {c=ma[i][j];
   ma[i][j]=ma[n-i-1][j];
   ma[n-1-i][j]=c;}}
 cout<<"Final matrix"<<endl;
 for(int i=0;i<n;i++)
  {for(int j=0;j<m;j++)
   cout<<ma[i][j]<<" ";
  cout<<endl;}
 return 0;
}

Пример работы программы(n=3,m=3):
First matrix:
0 1 2
1 2 3
2 3 4
Final matrix:
2 3 4
1 2 3
0 1 2

PascalABC.NET 3.3 под девизом
"Памяти наших дедов посвящается..."

const
  n=10;
var
  a:array[1..n,1..n] of integer;
  i,j,SumDiag,k:integer;
  p:real;

begin
  Writeln('*** Исходная матрица ***');
  Randomize;
  SumDiag:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(199)-99;
      if i=j then SumDiag:=SumDiag+a[i,j];
      Write(a[i,j]:4)
      end;
    Writeln
    end;
  for i:=1 to 4*n do Write('-');
  Writeln;
  Writeln('Сумма элементов на главной диагонали ',SumDiag);
  p:=SumDiag/15;
  k:=0;
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<p then k:=k+1;
  Writeln('Искомое количество элементов ',k)
end.

Пример
*** Исходная матрица ***
  95  37  30  21  83 -99  48 -40  49 -19
 -66 -82  88 -24  70  14 -88  11  60  14
 -72 -80  90  25  68  23  91  66 -54  52
  33  16  25 -72  85  58 -39  44   8 -29
   8  78 -79  51  50 -61 -13 -87  87  66
  63 -45  94 -48  59  76  46 -94  53 -40
 -90  81 -85  96  47  18  -8  61 -10 -87
 -47 -33 -97 -10 -93 -51  98 -60  74  30
 -63  78  79 -21  89 -21  21 -26 -31 -91
 -88 -45  91 -51 -39  26  64 -75 -96 -67

Сумма элементов на главной диагонали -9
Искомое количество элементов 46