Упростить выражение:
(¬a+b)׬c×(c+a׬b)​

Uses Crt;
const
  n=15;
var
  a:array[1..n] of integer;
  i,j,k,t:integer;
  found:boolean;
begin
  ClrScr;
  Randomize;
  Writeln('Исходный массив:');
  for i:=1 to n do begin
    a[i]:=Random(90)+1;
    Write(a[i],' ')
  end;
  Writeln;
  i:=n; found:=False;
  repeat
    found:=(a[i] mod 2=0);
    if (not found) then Dec(i)
  until found or (i=0);
  if found then begin
    for i:=i to n-1 do a[i]:=a[i+1];
    Writeln('Результирующий массив:');
    for i:=1 to n-1 do Write(a[i],' ')
  end;
  ReadKey
end.
Тестовое решение:
Исходный массив:
60 90 39 83 24 70 82 53 45 5 12 9 85 57 47
Результирующий массив:
60 90 39 83 24 70 82 53 45 5 9 85 57 47

#include "stdafx.h"

#include <iostream>

#include <string>

#include <fstream>

#include <windows.h>

using namespace std;

int main()  

{

setlocale(LC_ALL, "Russian");

float A[10];

cout << "Заполните массив данными:" << endl;

for (int i = 0; i < 10; i++)

{

 cout << "[" << i + 1 << "]: ";

 cin >> A[i];

}

float max = A[0];

for (int i = 0; i < 10; i++)

{

 if (A[i] > max)

 {

  max = A[i];

 }

}

cout << "\nМаксимальное значение: " << max << endl;

float summ = 0;

for (int i = 0; i < 10; i++)

{

 if ((A[i] + 1) == max)

 {

  summ += A[i];

 }

}

cout << "\nСумма элементов массива отличающихся от максимального на единицу: " << summ << endl;

return 0;

}

Объяснение:

Ищем максимальное число в массиве и далее ищем сумму всех элементов массива, которые отличаются от максимального на единицу. Т.е ищем сумму элементов, которые меньше максимального на единицу