Бейсик | Паскаль |
s = 0z = A(0)
FOR i = 1 TO n IF A(i) < z THEN s = s + 1 NEXT i |
s:=0; z:=A[0]; for i:=1 to n doif A[i]<z then s:=s+1 |
Си | Алгоритмический язык |
s = 0; z = A[0]; for (i = 1; i <= n; i++) if (A[i] < z) s++; |
s:=0 z:=A[0] нц для i от 1 доnесли A[i]<z то s:=s+1 |
0 Comments
Оставьте коммент первым.