M[0]: = 6; M[1]: = 7; M[2]: =6; M[1]: = M[0]+M[2]; M[0]: = M[1] * M[2]; M[2]: = M[0] - M[1]; Введи значения, которые получат переменные массива после выполнения этого фрагмента программы.

//Я мог ошибаться по поводу понятия "десятидневка"
//Поэтому интерпретировал как "любые 10 дней"

#include <iostream>
#include <stdlib.h>
#include <ctime>
using namespace std;
int main() {
    srand(time(0));
int ar[30];
int max=0;
int ar2[21];
int is,iv;
cout<<"Mounth \n";
for(int i=0;i<30;i++){
            ar[i]=rand()%100+1;
            cout<<ar[i]<<" ";
            }
    for(int i=0;i<21;i++){            ar2[i]=ar[i]+ar[i+1]+ar[i+2]+ar[i+3]+ar[i+4]+ar[i+5]+ar[i+6]+ar[i+7]+ar[i+8]+ar[i+9]; //не влезло
            if(max<ar2[i]){
                          max=ar2[i];
                          is=i+1;
                          iv=i+10;
                          }
                          } 
           cout<<"\n"<<is<<"-"<<iv;
    cin.get();
    cin.get();
return 0;
}

//PascalABC.Net 3.0, сборка 1064
var
  n:integer;
  i,d:byte;
  b:array[0..9] of boolean;
  fail:boolean;
begin
  Write('Введите четырехзначное натуральное число: ');
  Read(n);
  for i:=0 to 9 do b[i]:=False;
  while (n>0) and (not fail) do begin
    d:=n mod 10;
    if b[d] then fail:=True else b[d]:=True;
    n:=n div 10
  end;
  if fail then Writeln('В числе есть одинаковые цифры')
  else Writeln('В числе нет одинаковых цифр')
end.

Тестовое решение:
Введите четырехзначное натуральное число: 1263
В числе нет одинаковых цифр

Введите четырехзначное натуральное число: 1315
В числе есть одинаковые цифры