Дан массив размерностью 10 элементов типа dw. Определить количество элементов, больших среднего арифметического

[blackwood1337]

Дан массив размерностью 10 элементов типа dw.
Определить количество элементов, больших среднего арифметического. массив задан заранее.

[newerow1989]

Сообщение от blackwood1337

типа dw

А что за тип такой?

var p:array[1..10] of integer;
    i,c:integer;
    sr:real;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   sr:=0;
   For i:=1 to 10 do
      sr:=sr+p[i];
   sr:=sr/10;
   Writeln(sr:4:2);
   c:=0;
   For i:=1 to 10 do
      If p[i]>sr then
         Inc(c);
   Writeln(c);
   Readln;
end.

[Serge_Bliznykov]

Сообщение от newerow1989

А что за тип такой?

по всей видимости, это на Ассемблере программа нужна

p.s. простите, а какой смысл было писать программу, если Вы не поняли условие?!

[blackwood1337]

Сообщение от newerow1989

А что за тип такой?

var p:array[1..10] of integer;
    i,c:integer;
    sr:real;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   sr:=0;
   For i:=1 to 10 do
      sr:=sr+p[i];
   sr:=sr/10;
   Writeln(sr:4:2);
   c:=0;
   For i:=1 to 10 do
      If p[i]>sr then
         Inc(c);
   Writeln(c);
   Readln;
end.

Сергей прав, нужен ассемблер

[blackwood1337]

Сообщение от Serge_Bliznykov

по всей видимости, это на Ассемблере программа нужна

p.s. простите, а какой смысл было писать программу, если Вы не поняли условие?!

Вы правы

[newerow1989]

Ну тогда все просто!

1. Скопировать код и вставить в среду программирования (Delphi).
2. Сделать точку остановки (клавиша F5) на любой строчке.
3. Запустить программу.
4. Выполнить команду меню View - Debug Windows - CPU (Ctrl + Alt + C).
5. Получаем ассемблер.

[Serge_Bliznykov]

Сообщение от newerow1989

Ну тогда все просто!

смешно.

Во-первых, Вы так пробовали сделать?
А полученный ассемблерный код в ассемблере откомпилировать получилось?

Во-вторых, кто Вам сказал, что ему нужно приложение под Win32?

[newerow1989]

Там выбрать самое подходящее. И всё! По уму, конечно, делать!

[blackwood1337]

Мне нужен именно код на ассемблере с которого получится листинг на emu8086

[Аватар]

Мне нужен именно код на ассемблере

А что не получается? Или не знаю и знать не хочу, дайте код ))