| Бейсик | Паскаль |
| 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
Оставьте коммент первым.