Составте программу, которая задает вопрос "в каком году был основан город минск (например в 1067г., в 993г. либо в " в случае верного ответа программа должна сообщить "верно", в противном случае - "вы ошиблись".

точное время основания минска неизвестно. первое же письменное сообщение о минске встречается в "повести временных лет" под 1067 г.program vopros; vara: integer; beginwriteln('в каком году был основан город минск? '); writeln('в 1067г.'); writeln('в 993г.'); writeln('в 1147г.'); read(a); if a=1067 then writeln('верно')elsewrite('вы ошиблись')end.

Решил жадным алгоритмом

#include < bits/stdc++.h>

using namespace std;

int ans,n,a[10101],m,b[10101];

main () {

    cin > > n > > m;

    for (int i = 1; i < = n; i++)

    cin > > a[i];

    sort(a + 1, a + n + 1);

for (int i = 1; i < = n; i++)

      if (a[i] < = m) m-=a[i];

      else

      b[i] = pow(a[i] - m,2);  

for (int i = 1; i < = n; i++)

  if (b[i]) ans+=b[i];

cout < < ans;

}

const n=5;

var c: array[1..n,1..n] of integer;

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

i, j, s: integer;

begin

randomize;

writeln('исходный массив с: ');

for i: =1 to n do

begin

for j: =1 to n do

  begin

  c[i,j]: =random(10);

  write(c[i,j]: 4);

  end;

  writeln;

end;

writeln('исходный массив a: ');

for i: =1 to n do

  begin

  a[i]: =random(10);

  write(a[i]: 4);

  end;

  writeln;

for i: =1 to n do

begin

s: =0;

for j: =1 to n do s: =s+c[i,j]*a[j];

b[i]: =s;

end;

writeln('b=c*a');

for i: =1 to n do write(b[i]: 4);

  writeln;

end.

пример:

исходный массив с:

  3   9   2   3   5

  3   9   5   6   9

  9   2   1   7   8

  5   2   0   3   2

  8   6   6   1   3

исходный массив a:

  8   6   9   1   7

b=c*a

134 192 156   69 176