11000000
Вот ответ . Но объяснить я не могу .
Я думаю так: Д,В,Е,Ж,Г,Б,А Получается: ftp://edu.ru/demo.rar
// создаёт текстовый файл там, где лежит программа
//////////////////////////////////////////////
var x: text;
begin
assign (x, 'file.txt');
rewrite (x);
writeln(x,'Тут напиши что-нибудь, что нужно записать в файл');
close(x);
<span>end.</span>
Решение представлено на фотографии ниже
Program p1;
const N=10;
var i,max,sum:integer;
a:array[1..10] of integer;
begin
randomize;
max:=0;
sum:=0;
for i:=1 to N do a[i]:=1+random(10);
for i:=1 to N do write(a[i],' ');
for i:=1 to N do
if (a[i]>max) then max:=a[i];
writeln;
writeln('Максимальное число: ',max);
for i:=1 to N do
if(a[i]=max) then sum:=sum+1;
write('Количество максимальных чисел: ',sum);
end.