(!)Убедительная , буду очень благодарен!) необходим просто дополнить код что бы все работало.

На c++

#include <iostream>#include <ctime>int main(){ using namespace std; const int ArSize = 10; int ar[ArSize]; int s_less = 0, s_more = 0; int k_less = 0, k_more = 0; srand(time(0)); for (int i = 0; i < ArSize; i++) ar[i] = rand() % 101; for (int i = 0; i < ArSize; i++) cout << ar[i] << ' ';
for (int i = 0; i < ArSize; i++) { if (ar[i] < 50) { s_less = s_less + ar[i]; k_less = k_less + 1; } if (ar[i] > 50) { s_more = s_more + ar[i]; k_more = k_more + 1; } } cout << "\nAverage of numbers less than 50: " << (double)s_less / k_less << endl; cout << "Average of numbers more than 50: " << (double)s_more / k_more << endl; return 0;}

Const
    key = 3;

var
    i: integer;
    s: string;

function Encode(s: string; key: integer): string;
var
    i: integer;
begin
    for i := 1 to Length(s) do
        s[i] := chr(ord(s[i]) + key);
    Encode := s;
end;

function Decode(s: string; key: integer): string;
var
    i: integer;
begin
    for i := 1 to Length(s) do
        s[i] := chr(ord(s[i]) - key);
    Decode := s;
end;

begin
    write('Введите строку данных - ');
    readln(s);
    writeln('Выберите действие');
    writeln('1 - Закодировать');
    writeln('2 - Раскодировать');
    readln(i);
    case i of
        1: s := Encode(s, key);
        2: s := Decode(s, key);
    end;
    Writeln(s);
end.