Предположим, что Великобритания (откровенный), тогда получается проект Китая.
Следовательно Китай (скрытный). Проверим, Францию на (осторожный).
Все верно, следовательно
Великобритания = Откровенный
Китай = Скрытый
Франция = Осторожный
program raf105;
const
n = 10;
var
d:array[1..n] of integer;
min,max,sum,notmax,i: integer;
begin
max:= -10000;
min:= 10000;
writeln('Заполните массив');
for i:=1 to n do
begin
readln(d[i]);
sum+= d[i];
if max<d[i]
then max:= d[i];
end;
for i:=1 to n do
begin
if d[i]<>max
then notmax+= 1;
if (d[i]>sum) and (d[i]<min)
then min:= d[i];
end;
if min<>10000
then writeln('Минимальный среди элементов, больших суммы: ',min)
else writeln('Минимальный среди элементов, больших суммы: Не найдено');
writeln('Количество элементов, не равных максимальному: ',notmax);
end.
<h3><em><u>Язык PascalABC</u></em></h3>
1) Фиксированная и плавающая точка (запятая)
2) В двоичной системе счисления.
3) Бит, байт, килобайт, мегабайт, гигобайт и т.д.
var
a: array[1..5] of integer;
i, z, x: integer;
begin
z := -1;
x:=1;
for i := 1 to 5 do
begin
read(a[i]);
if (a[i] >z) then z := a[i];
if (a[i] <x) then x := a[i];
end;
writeln(z - x);
end.