nOMoruTe

[Екатерина Сладкова]

Вводится массив N строк, каждая строка заканчивается символом 0. Выбрать строки, не содержащие символов #, &, /, \, =, отсортировать по убыванию и вывести (по убыванию суммы квадратов кодов первых трех эл-ов). Выбором.

Мальчики, помогите. готова на все. У меня прямо сейчас экзамен. По паскалю. Програмный код очень нужен.

[Grag]

Сообщение от Екатерина Сладкова

Мальчики, помогите. готова на все.

А более конкретно можно?

[Екатерина Сладкова]

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

А более конкретно можно?

что именно

[Grag]

Сумма и способ оплаты?

[Z1000000]

Только что подружке твоей отправил

program Laba;
var
 M : array[0..9] of String;
 indexmax,i,j,max : Integer;
 sTmp : String;

function SummaOrd ( aStr: String ) : Integer;
 begin
 SummaOrd := Round(Power(Ord(aStr[1]),2))+Round(Power(Ord(aStr[1]),2))+Round(Power(Ord(aStr[3]),2));
 end;

begin
M[0]:='123';
M[1]:='124';
M[2]:='125';
M[3]:='126';
M[4]:='127';
M[5]:='128';
M[6]:='129';
M[7]:='130';
M[8]:='131';
M[9]:='132';

for i:= 0 to 8 do
 begin
 max := SummaOrd(M[i]);indexmax := i;
 for j:=i to 9 do
  begin
  if max < SummaOrd(M[j]) then begin max := SummaOrd(M[j]);indexmax := j;end;
  end;
 if i <> j then
  begin
  sTmp := M[i];M[i]:=M[indexmax];M[indexmax]:=sTmp;
  end;
 end;
 
end.