Кязыкам программирования высокого уровня не а) с# б) assembler в) ruby г) lisp

Б) assembler, разумеется

Утебя много лишнего в куске программы. ещё мне непонятно зачем ты выводишь числа делённые на 4, значения у них не изменилось в массиве. хочу пояснить кое какие операции: write () или writeln () -выводят числа  read () или readln () - вводят элементы end. -программа обязательно заканчивается на end с точкой.  const n=10; var a: array [1..n] of integer; i, s1,s2: integer; begin for i : = 1 to n do begin a[i] : = random(100); write(a[i],' ');   end; for i: =1 to n do     if i< (n/2) then s1: =s1+a[i] else s2: =s2+a[i];   writeln; if s1< > s2 then if s1< s2     then   write (s1,'< ',s2)   else       write (s1,'> ',s2)                            else   write (s1,'=',s2) end. если нужно что-то изменить или пояснить пиши.

//pascalabc.net 3.2 сборка 1318 var   s: array[1..60] of char;   i,j,len: integer; begin len: =60; for i: =1 to 60 do read(s[i]); i: =1; while(i< =len-3) do begin   if (s[i]='m') and (s[i+1]='a') and (s[i+2]='m') and (s[i+3]='a') then     begin       s[i]: ='d';       s[i+1]: ='e';       s[i+2]: ='d';       for j: =i+3 to len-1 do         s[j]: =s[j+1];       dec(len);     end;   inc(i); end; for i: =1 to len do write(s[i]); end.